diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-06-10 10:25:16 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-06-10 10:25:16 +0200 |
| commit | 7522a0160be6888416a54b9e241d124839750e60 (patch) | |
| tree | 85e7017073e72e2c11380ba514cebc73cd11d778 | |
| parent | 80cd1d89924a87e46d36bd102eff31cd3f95b8d9 (diff) | |
| download | patches-7522a0160be6888416a54b9e241d124839750e60.tar patches-7522a0160be6888416a54b9e241d124839750e60.tar.gz | |
ui: Replace the global 'symlink' binding.
* guix/ui.scm (symlink): Set! the global symlink.
| -rw-r--r-- | guix/ui.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/guix/ui.scm b/guix/ui.scm index 94e2c4eecc..11af646a6e 100644 --- a/guix/ui.scm +++ b/guix/ui.scm @@ -45,7 +45,6 @@ #:use-module (ice-9 regex) #:autoload (system repl repl) (start-repl) #:autoload (system repl debug) (make-debug stack->vector) - #:replace (symlink) #:export (_ N_ P_ @@ -294,7 +293,9 @@ Report bugs to: ~a.") %guix-bug-report-address) General help using GNU software: <http://www.gnu.org/gethelp/>")) (newline)) -(define symlink +(set! symlink + ;; We 'set!' the global binding because (gnu build ...) modules and similar + ;; typically don't use (guix ui). (let ((real-symlink (@ (guile) symlink))) (lambda (target link) "This is a 'symlink' replacement that provides proper error reporting." |