base: Remove unneeded 'guix-variable'.

pull/3/head
Mathieu Lirzin 2016-07-13 14:19:36 +02:00
parent 0808ab3ecd
commit efe96ced25
1 changed files with 0 additions and 9 deletions

View File

@ -22,7 +22,6 @@
#:use-module (ice-9 format)
#:use-module (srfi srfi-19)
#:export (;; Procedures.
guix-variable
call-with-time-display
;; Parameters.
%program-name
@ -49,14 +48,6 @@
(scm-error 'wrong-type-arg
"%package-cachedir" "Not a string: ~S" (list #f) #f)))))
(define (guix-variable module name)
"Dynamically link variable NAME under Guix module MODULE and return it.
Note: this is used instead of `@', because when using `@' in an uncompiled
file, Guile tries to load the module directly as it reads the source, which
fails in our case, leading to the creation of empty (guix ...) modules."
(let ((m (resolve-interface `(guix ,module))))
(module-ref m name)))
(define (call-with-time thunk kont)
"Call THUNK and pass KONT the elapsed time followed by THUNK's return
values."