[Guile-commits] 88/99: read argument to --depends switch

[Christopher Allan Webber]

cwebber pushed a commit to branch compile-to-js-merge
in repository guile.

commit 37369c0cb09afce58283a2f11bb87800cfc7ed29
Author: Ian Price <ianprice90@googlemail.com>
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