mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-25 20:50:31 +02:00
Code Activity

read argument to --depends switch

Browse source 
* module/scripts/jslink.scm: Need to use `read' on --depends switch to
  pass a pair.
This commit is contained in:
Ian Price 2017-08-28 13:47:30 +01:00
parent 11378b73df
commit 37369c0cb0
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/scripts/jslink.scm
View file

@ -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