diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2016-07-12 17:43:19 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2016-07-12 22:47:08 +0200 |
| commit | a769bffb65d6ddfc108a4904641b310029f4924f (patch) | |
| tree | 5688497269e12aa5dbb6de9f896885831e75e844 /guix | |
| parent | e9b046fddaefbb98c931260821399090c221173d (diff) | |
| download | guix-patches-a769bffb65d6ddfc108a4904641b310029f4924f.tar guix-patches-a769bffb65d6ddfc108a4904641b310029f4924f.tar.gz | |
gexp: 'computed-file' no longer has a #:modules parameter.
* guix/gexp.scm (<computed-file>)[modules]: Remove.
(computed-file): Remove #:modules.
(computed-file-compiler): Likewise.
* doc/guix.texi (G-Expressions): Adjust accordingly.
Diffstat (limited to 'guix')
| -rw-r--r-- | guix/gexp.scm | 15 |
1 files changed, 6 insertions, 9 deletions
diff --git a/guix/gexp.scm b/guix/gexp.scm index 60f8905ea4..ec4fe0896a 100644 --- a/guix/gexp.scm +++ b/guix/gexp.scm @@ -50,7 +50,6 @@ computed-file? computed-file-name computed-file-gexp - computed-file-modules computed-file-options program-file @@ -273,30 +272,28 @@ This is the declarative counterpart of 'text-file'." (text-file name content references)))) (define-record-type <computed-file> - (%computed-file name gexp modules options) + (%computed-file name gexp options) computed-file? (name computed-file-name) ;string (gexp computed-file-gexp) ;gexp - (modules computed-file-modules) ;list of module names (options computed-file-options)) ;list of arguments (define* (computed-file name gexp - #:key (modules '()) (options '(#:local-build? #t))) + #:key (options '(#:local-build? #t))) "Return an object representing the store item NAME, a file or directory -computed by GEXP. MODULES specifies the set of modules visible in the -execution context of GEXP. OPTIONS is a list of additional arguments to pass +computed by GEXP. OPTIONS is a list of additional arguments to pass to 'gexp->derivation'. This is the declarative counterpart of 'gexp->derivation'." - (%computed-file name gexp modules options)) + (%computed-file name gexp options)) (define-gexp-compiler (computed-file-compiler (file computed-file?) system target) ;; Compile FILE by returning a derivation whose build expression is its ;; gexp. (match file - (($ <computed-file> name gexp modules options) - (apply gexp->derivation name gexp #:modules modules options)))) + (($ <computed-file> name gexp options) + (apply gexp->derivation name gexp options)))) (define-record-type <program-file> (%program-file name gexp modules guile) |