diff options
| author | Mathieu Lirzin <mthl@gnu.org> | 2016-07-13 14:19:36 +0200 |
|---|---|---|
| committer | Mathieu Lirzin <mthl@gnu.org> | 2016-07-13 23:30:59 +0200 |
| commit | efe96ced25ce3dc0810dd40affe0d7b1e9ef7530 (patch) | |
| tree | 5ea3f633b1f0d1731fc7b5af2ff86f44cde33938 /src | |
| parent | 0808ab3ecdb5d0ac4b9714c896bab6b33e8976e8 (diff) | |
| download | cuirass-efe96ced25ce3dc0810dd40affe0d7b1e9ef7530.tar cuirass-efe96ced25ce3dc0810dd40affe0d7b1e9ef7530.tar.gz | |
base: Remove unneeded 'guix-variable'.
Diffstat (limited to 'src')
| -rw-r--r-- | src/cuirass/base.scm | 9 |
1 files changed, 0 insertions, 9 deletions
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." |