We have stable meshes with properties, translate, rotate, turn and more.

[gacela.git] / src / utils.scm

diff --git a/src/utils.scm b/src/utils.scm
index 28cc16346524e78c189e7ef194906a37e6c9dad0..015de6b68b5f52c9f882a518df9ef2f121e7dd81 100644 (file)
--- a/src/utils.scm
+++ b/src/utils.scm
@@ -18,7 +18,8 @@
 (define-module (gacela utils)
   #:export (use-cache-with
            arguments-calling
-           arguments-apply))
+           arguments-apply
+           bound?))
 
 
 ;;; Cache for procedures
@@ -44,7 +45,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)))))