summary refs log tree commit diff
path: root/doc/decompress-compile-run.scm
diff options
context:
space:
mode:
authorArun Isaac2021-08-17 16:00:23 +0530
committerArun Isaac2021-08-17 16:00:23 +0530
commit22977baf000ff18941eb78dcc300d115667e5ec8 (patch)
tree60c3847db226df694d9af77c91b11481d6acd589 /doc/decompress-compile-run.scm
parent99b11c99393e2d5e52347c456c4370f842c0fb49 (diff)
downloadccwl-22977baf000ff18941eb78dcc300d115667e5ec8.tar.gz
ccwl-22977baf000ff18941eb78dcc300d115667e5ec8.tar.lz
ccwl-22977baf000ff18941eb78dcc300d115667e5ec8.zip
ccwl: Define output objects using a macro instead of a function.
This allows us to do sophisticated syntax checking at an early stage,
very close to the user interface. That way error messages from ccwl
will make a lot more sense.

* ccwl/ccwl.scm (output): Re-implement as macro.
(command): Use the new macro interface.
* doc/capture-output-file-with-parameter-reference.scm,
doc/capture-output-file.scm, doc/capture-stdout.scm, doc/checksum.scm,
doc/decompress-compile-run.scm: Use new quoting syntax for output
types.
Diffstat (limited to 'doc/decompress-compile-run.scm')
-rw-r--r--doc/decompress-compile-run.scm6
1 files changed, 3 insertions, 3 deletions
diff --git a/doc/decompress-compile-run.scm b/doc/decompress-compile-run.scm
index 4e916b2..00ad392 100644
--- a/doc/decompress-compile-run.scm
+++ b/doc/decompress-compile-run.scm
@@ -1,19 +1,19 @@
 (define decompress
   (command #:inputs (compressed #:type File)
            #:run "gzip" "--stdout" "--decompress" compressed
-           #:outputs (decompressed #:type 'stdout)))
+           #:outputs (decompressed #:type stdout)))
 
 (define compile
   (command #:inputs (source #:type File)
            #:run "gcc" "-x" "c" source
            #:outputs (executable
-                      #:type 'File
+                      #:type File
                       #:binding '((glob . "a.out")))))
 
 (define run
   (command #:inputs executable
            #:run executable
-           #:outputs (stdout #:type 'stdout)))
+           #:outputs (stdout #:type stdout)))
 
 (workflow ((compressed-source #:type File))
   (pipe (decompress #:compressed compressed-source)