Andy Wingo 7f7b85cbf6 fix nontail loops within loops ... * module/language/tree-il/compile-glil.scm (flatten): Fix compilation of loops within loops in non-tail positions. Will add a test case soon, but one way to reproduce it was with the following function: (define (test) (let lp () (pk 'zero) (let ((fk (lambda () (let ((fk2 (lambda () (pk 'two)))) (let ((fk3 (lambda () (if #t (pk 'three) (fk2))))) (if #t (fk3) (fk2))))))) (pk 'one) (fk)) (lp))) One would expect to see a sequence of "zero one three", but in fact zero only showed once. This should fix simplex as well.		2009-09-01 18:07:29 +02:00
..
ice-9	Merge branch 'ossau-gds-dev'	2009-08-27 22:52:20 +01:00
language	fix nontail loops within loops	2009-09-01 18:07:29 +02:00
oop
rnrs
scripts
srfi
system
Makefile.am	Incorporate ice-9-debugger-extensions properly	2009-08-27 22:21:20 +01:00