1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-05 23:20:38 +02:00
guile/module
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 Change Guile license to LGPLv3+ 2009-06-17 00:22:09 +01:00
rnrs Complete changing license to LGPLv3+ 2009-06-17 22:30:26 +01:00
scripts Add proper --help' and --version' for `guile-tools compile'. 2009-08-15 14:18:57 +02:00
srfi Merge wip-array refactor, up to cd43fdc5b7 2009-08-25 18:04:02 +02:00
system Add full Unicode capability to ports and the default reader 2009-08-25 07:54:37 -07:00
Makefile.am Incorporate ice-9-debugger-extensions properly 2009-08-27 22:21:20 +01:00