From 1b2c78475c41fb20ab2158a698a342ac60c154c3 Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Sun, 16 Jan 2022 01:29:27 +0530 Subject: scripts: Read using read-syntax. read-syntax gives us get better source properties. * scripts/ccwl (main): Read using read-syntax. --- scripts/ccwl | 5 +++-- 1 file 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 +;;; Copyright © 2021, 2022 Arun Isaac ;;; ;;; 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 -- cgit v1.2.3