From 37369c0cb09afce58283a2f11bb87800cfc7ed29 Mon Sep 17 00:00:00 2001
From: Ian Price <ianprice90@googlemail.com>
Date: Mon, 28 Aug 2017 13:47:30 +0100
Subject: [PATCH] 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 d5cdcef72..015231552 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