summaryrefslogtreecommitdiff
path: root/doc/decompress-compile-run.scm
diff options
context:
space:
mode:
Diffstat (limited to 'doc/decompress-compile-run.scm')
-rw-r--r--doc/decompress-compile-run.scm19
1 files changed, 11 insertions, 8 deletions
diff --git a/doc/decompress-compile-run.scm b/doc/decompress-compile-run.scm
index 437fb41..a2c58bb 100644
--- a/doc/decompress-compile-run.scm
+++ b/doc/decompress-compile-run.scm
@@ -1,16 +1,19 @@
(define decompress
- (command #:run "gzip" "--stdout" "--decompress" (input 'compressed #:type 'File)
- #:outputs (output 'decompressed #:type 'stdout)))
+ (command #:inputs (compressed #:type 'File)
+ #:run "gzip" "--stdout" "--decompress" compressed
+ #:outputs (decompressed #:type 'stdout)))
(define compile
- (command #:run "gcc" "-x" "c" (input 'source #:type 'File)
- #:outputs (output 'executable
- #:type 'File
- #:binding '((glob . "a.out")))))
+ (command #:inputs (source #:type 'File)
+ #:run "gcc" "-x" "c" source
+ #:outputs (executable
+ #:type 'File
+ #:binding '((glob . "a.out")))))
(define run
- (command #:run (input 'executable)
- #:outputs (output 'stdout #:type 'stdout)))
+ (command #:inputs executable
+ #:run executable
+ #:outputs (stdout #:type 'stdout)))
(workflow ((compressed-source #:type File))
(pipe (decompress #:compressed compressed-source)