From 7522a0160be6888416a54b9e241d124839750e60 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Wed, 10 Jun 2015 10:25:16 +0200
Subject: ui: Replace the global 'symlink' binding.

* guix/ui.scm (symlink): Set! the global symlink.
---
 guix/ui.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'guix')

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."
-- 
cgit v1.2.3