X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Futils.scm;h=33b245ff153c300affe7f2819d5968a9135a690f;hb=938de63713779c6777d54cd962ec82ee64744abc;hp=28cc16346524e78c189e7ef194906a37e6c9dad0;hpb=7b8fc2a0d9a5e6c777a8b075714d011c7133367d;p=gacela.git

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