From 46b0739017a133de3219a0789897470fcd4ec8b9 Mon Sep 17 00:00:00 2001 From: leo-ard Date: Tue, 6 Aug 2024 18:17:10 -0400 Subject: [PATCH] Fix bug #56 --- src/rsc.scm | 2 +- src/tests/00-ribbit/35-eval.scm | 2 ++ src/tests/00-ribbit/50-repl.scm | 1 + src/tests/00-ribbit/90-macros.scm | 1 + 4 files changed, 5 insertions(+), 1 deletion(-) diff --git a/src/rsc.scm b/src/rsc.scm index 25362c94..9827d204 100755 --- 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 index 83d8312b..4959497d 100644 --- 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 index a03b0207..7588b123 100644 --- 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 index f9e1eb6b..4dad0930 100644 --- 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