]> git.jsancho.org Git - gacela.git/commitdiff
Meshes required parameters can be unspecified
authorJavier Sancho <jsf@jsancho.org>
Thu, 16 Aug 2012 16:34:52 +0000 (18:34 +0200)
committerJavier Sancho <jsf@jsancho.org>
Thu, 16 Aug 2012 16:34:52 +0000 (18:34 +0200)
src/utils.scm

index 28cc16346524e78c189e7ef194906a37e6c9dad0..33b245ff153c300affe7f2819d5968a9135a690f 100644 (file)
 (define (required-arguments args values)
   "Return an alist with required arguments and their values"
   (define (f vars values)
 (define (required-arguments args values)
   "Return an alist with required arguments and their values"
   (define (f vars values)
-    (cond ((or (null? vars) (null? values)) '())
+    (cond ((null? vars) '())
+         ((null? values) (assoc-set! (f (cdr vars) '())
+                                     (car vars)
+                                     undefined))
          (else (assoc-set! (f (cdr vars) (cdr values))
                            (car vars)
                            (car values)))))
          (else (assoc-set! (f (cdr vars) (cdr values))
                            (car vars)
                            (car values)))))