futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ui: Replace the global 'symlink' binding.

Browse Source 
* guix/ui.scm (symlink): Set! the global symlink.
This commit is contained in:
Ludovic Courtès 2015-06-10 10:25:16 +02:00
parent 80cd1d8992
commit 7522a0160b
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
guix/ui.scm
View File

@ -45,7 +45,6 @@
#:use-module (ice-9 regex) #:use-module (ice-9 regex)
#:autoload (system repl repl) (start-repl) #:autoload (system repl repl) (start-repl)
#:autoload (system repl debug) (make-debug stack->vector) #:autoload (system repl debug) (make-debug stack->vector)
#:replace (symlink)
#:export (_ #:export (_
N_ N_
P_ P_
@ -294,7 +293,9 @@ Report bugs to: ~a.") %guix-bug-report-address)
General help using GNU software: <http://www.gnu.org/gethelp/>")) General help using GNU software: <http://www.gnu.org/gethelp/>"))
(newline)) (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))) (let ((real-symlink (@ (guile) symlink)))
(lambda (target link) (lambda (target link)
"This is a 'symlink' replacement that provides proper error reporting." "This is a 'symlink' replacement that provides proper error reporting."