aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2015-06-10 10:25:16 +0200
committerLudovic Courtès <ludo@gnu.org>2015-06-10 10:25:16 +0200
commit7522a0160be6888416a54b9e241d124839750e60 (patch)
tree85e7017073e72e2c11380ba514cebc73cd11d778
parent80cd1d89924a87e46d36bd102eff31cd3f95b8d9 (diff)
downloadguix-7522a0160be6888416a54b9e241d124839750e60.tar
guix-7522a0160be6888416a54b9e241d124839750e60.tar.gz
ui: Replace the global 'symlink' binding.
* guix/ui.scm (symlink): Set! the global symlink.
-rw-r--r--guix/ui.scm5
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."