diff --git a/src/cuirass/base.scm b/src/cuirass/base.scm index 941da0d..f535ac6 100644 --- a/src/cuirass/base.scm +++ b/src/cuirass/base.scm @@ -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."