Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-18 21:29:19 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

check for too many args to if (issue #561)

Browse source
This commit is contained in:
Alex Shinn 2019-08-29 21:56:00 +08:00
parent 4282a6da0d
commit 0bfc31a1e5
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
eval.c
View file

@ -883,7 +883,9 @@ static sexp analyze_if (sexp ctx, sexp x, int depth) {
sexp_gc_var3(test, pass, fail);
sexp_gc_preserve3(ctx, test, pass, fail);
if (! (sexp_pairp(sexp_cdr(x)) && sexp_pairp(sexp_cddr(x)))) {
res = sexp_compile_error(ctx, "bad if syntax", x);
res = sexp_compile_error(ctx, "not enough args to if", x);
} else if (sexp_pairp(sexp_cdddr(x)) && sexp_cdr(sexp_cdddr(x)) != SEXP_NULL) {
res = sexp_compile_error(ctx, "too many args to if", x);
} else {
test = analyze(ctx, sexp_cadr(x), depth, 0);
pass = analyze(ctx, sexp_caddr(x), depth, 0);