diff options
| author | Arun Isaac | 2022-01-16 01:29:27 +0530 |
|---|---|---|
| committer | Arun Isaac | 2022-01-16 12:24:44 +0530 |
| commit | 1b2c78475c41fb20ab2158a698a342ac60c154c3 (patch) | |
| tree | 0f2cc0220e12ec3a0ba5eef35f29d5c5fd764b20 /scripts | |
| parent | 0cdeada6b3dec0d5eab1648cc5d7c627b593d498 (diff) | |
| download | ccwl-1b2c78475c41fb20ab2158a698a342ac60c154c3.tar.gz ccwl-1b2c78475c41fb20ab2158a698a342ac60c154c3.tar.lz ccwl-1b2c78475c41fb20ab2158a698a342ac60c154c3.zip | |
scripts: Read using read-syntax.
read-syntax gives us get better source properties.
* scripts/ccwl (main): Read using read-syntax.
Diffstat (limited to 'scripts')
| -rwxr-xr-x | scripts/ccwl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/scripts/ccwl b/scripts/ccwl index 1521803..63a929a 100755 --- a/scripts/ccwl +++ b/scripts/ccwl @@ -1,7 +1,7 @@ #! /usr/bin/env guile !# ;;; ccwl --- Concise Common Workflow Language -;;; Copyright © 2021 Arun Isaac <arunisaac@systemreboot.net> +;;; Copyright © 2021, 2022 Arun Isaac <arunisaac@systemreboot.net> ;;; ;;; This file is part of ccwl. ;;; @@ -84,7 +84,8 @@ Compile SOURCE-FILE. ((cond ((string=? to "cwl") workflow->cwl) ((string=? to "dot") workflow->dot)) - (load (canonicalize-path (assq-ref args 'source-file))) + (load (canonicalize-path (assq-ref args 'source-file)) + read-syntax) (current-output-port))))) ((program args ...) (let ((args (args-fold args |