cwebber pushed a commit to branch compile-to-js-merge
in repository guile.
commit 37369c0cb09afce58283a2f11bb87800cfc7ed29
Author: Ian Price <[email protected]>
AuthorDate: Mon Aug 28 13:47:30 2017 +0100
read argument to --depends switch
* module/scripts/jslink.scm: Need to use `read' on --depends switch to
pass a pair.
---
module/scripts/jslink.scm | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/module/scripts/jslink.scm b/module/scripts/jslink.scm
index d5cdcef..0152315 100644
--- a/module/scripts/jslink.scm
+++ b/module/scripts/jslink.scm
@@ -53,8 +53,10 @@
(option '(#\d "depends") #t #f
(lambda (opt name arg result)
+ (define (read-from-string s)
+ (call-with-input-string s read))
(let ((depends (assoc-ref result 'depends)))
- (alist-cons 'depends (cons arg depends)
+ (alist-cons 'depends (cons (read-from-string arg) depends)
result))))
(option '("no-boot") #f #f
