From: Javier Sancho <jsf@jsancho.org>
Date: Thu, 16 Aug 2012 16:34:52 +0000 (+0200)
Subject: Meshes required parameters can be unspecified
X-Git-Url: https://git.jsancho.org/?a=commitdiff_plain;h=938de63713779c6777d54cd962ec82ee64744abc;p=gacela.git

Meshes required parameters can be unspecified
---

diff --git a/src/utils.scm b/src/utils.scm
index 28cc163..33b245f 100644
--- 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)
-    (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)))))