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