Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-04 19:56:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

fixing a small bug that missed some tail-recursion cases

Browse source
This commit is contained in:
Alex Shinn 2009-11-22 18:14:46 +09:00
parent 3a47a903e8
commit bb251082f6
2 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
eval.c
View file

@ -960,6 +960,7 @@ static void generate_general_app (sexp ctx, sexp app) {
emit(ctx, (tailp ? OP_TAIL_CALL : OP_CALL)); emit(ctx, (tailp ? OP_TAIL_CALL : OP_CALL));
emit_word(ctx, (sexp_uint_t)sexp_make_fixnum(len)); emit_word(ctx, (sexp_uint_t)sexp_make_fixnum(len));
sexp_context_tailp(ctx) = tailp;
sexp_context_depth(ctx) -= len; sexp_context_depth(ctx) -= len;
sexp_gc_release1(ctx); sexp_gc_release1(ctx);
} }

4
init.scm
View file

@ -122,7 +122,9 @@
#f #f
((lambda (cl) ((lambda (cl)
(if (compare 'else (car cl)) (if (compare 'else (car cl))
(cons (rename 'begin) (cdr cl)) (if (pair? (cddr expr))
(error "non-final else in cond" expr)
(cons (rename 'begin) (cdr cl)))
(if (if (null? (cdr cl)) #t (compare '=> (cadr cl))) (if (if (null? (cdr cl)) #t (compare '=> (cadr cl)))
(list (list (rename 'lambda) (list (rename 'tmp)) (list (list (rename 'lambda) (list (rename 'tmp))
(list (rename 'if) (rename 'tmp) (list (rename 'if) (rename 'tmp)