Meshes required parameters can be unspecified

diff --git a/src/utils.scm b/src/utils.scm
index 28cc16346524e78c189e7ef194906a37e6c9dad0..33b245ff153c300affe7f2819d5968a9135a690f 100644 (file)
--- a/src/utils.scm
+++ b/src/utils.scm
@@ -44,7 +44,10 @@
 (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)))))