From 938de63713779c6777d54cd962ec82ee64744abc Mon Sep 17 00:00:00 2001
From: Javier Sancho <jsf@jsancho.org>
Date: Thu, 16 Aug 2012 18:34:52 +0200
Subject: [PATCH] Meshes required parameters can be unspecified

---
 src/utils.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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)))))
-- 
2.39.5