Fix bug #56

udem-dlteam · Aug 6, 2024 · 11ddf83 · 11ddf83
1 parent 7f96c19
commit 11ddf83
Show file tree

Hide file tree

Showing 4 changed files with 5 additions and 1 deletion.
diff --git a/src/rsc.scm b/src/rsc.scm
@@ -1132,7 +1132,7 @@
                                                      ctx
                                                      (length args)
                                                      (gen-call
-                                                       (if (number? v)
+                                                       (if (and (number? v) (arity-check? ctx first))
                                                          (+ v 1)
                                                          v)
                                                        cont))))))

diff --git a/src/tests/00-ribbit/35-eval.scm b/src/tests/00-ribbit/35-eval.scm
@@ -5,6 +5,8 @@
 
 ;;;run: -l min -f+ arity-check
 ;;;run: -l max -f+ arity-check
+;;;run: -l min
+;;;run: -l max
 ;;;r4rs-run: -l r4rs
 ;;;input:(* 6 7)
 ;;;expected:

diff --git a/src/tests/00-ribbit/50-repl.scm b/src/tests/00-ribbit/50-repl.scm
@@ -3,6 +3,7 @@
 (repl)
 
 ;;;run: -l max -f+ arity-check
+;;;run: -l max
 ;;;r4rs-run: -l r4rs
 ;;;input:(define fact (lambda (n) (if (< n 2) 1 (* n (fact (- n 1))))))(fact 10)
 ;;;expected:

diff --git a/src/tests/00-ribbit/90-macros.scm b/src/tests/00-ribbit/90-macros.scm
@@ -45,5 +45,6 @@
 
 
 ;;;run: -l define-macro -f+ arity-check
+;;;run: -l define-macro
 ;;;expected:
 ;;;ABCDEF