From 3a132e8040e3d24ecd015900bfacc2caef918ca4 Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Fri, 17 Aug 2012 01:45:20 +0200 Subject: [PATCH] Use `,' to denote list * undone/main.scm (add): When encountering a value that starts with `,', assume that it should be turned into a list. --- undone/main.scm | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/undone/main.scm b/undone/main.scm index 750bf09..37aa0f7 100644 --- a/undone/main.scm +++ b/undone/main.scm @@ -127,9 +127,14 @@ (append `((content . ,(read-delimited ""))) (map (lambda (arg) - (let ((pair (string-split arg #\=))) - (cons (string->symbol (car pair)) - (cadr pair)))) + (let* ((pair (string-split arg #\=)) + (var (string->symbol (car pair))) + (val (cadr pair))) + (if (char=? (string-ref val 0) #\,) + (set! val (string-split + (substring val 1) #\,))) + + (cons var val))) args)))))) (define-view default