[Guile-commits] GNU Guile branch, master, updated. release_1-9-11-63-gb920418

[Andy Wingo]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=b92041856024f11a3cf2ecc430a4645c8f2c2e37

The branch, master has been updated
       via  b92041856024f11a3cf2ecc430a4645c8f2c2e37 (commit)
      from  10e69149f64c9cdc126bda516ced4defb9775712 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit b92041856024f11a3cf2ecc430a4645c8f2c2e37
Author: Andy Wingo <address@hidden>
Date:   Fri Jun 11 17:16:12 2010 +0200

    handler of a prompt is in tail context
    
    * module/language/tree-il/analyze.scm (analyze-lexicals): The handler of
      a prompt is in tail context.

-----------------------------------------------------------------------

Summary of changes:
 module/language/tree-il/analyze.scm |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/module/language/tree-il/analyze.scm 
b/module/language/tree-il/analyze.scm
index 0bf6b9c..f5ddd32 100644
--- a/module/language/tree-il/analyze.scm
+++ b/module/language/tree-il/analyze.scm
@@ -349,7 +349,7 @@
        (lset-union eq? (step fluid) (step exp)))
       
       ((<prompt> tag body handler)
-       (lset-union eq? (step tag) (step body) (step handler)))
+       (lset-union eq? (step tag) (step body) (step-tail handler)))
       
       ((<abort> tag args tail)
        (apply lset-union eq? (step tag) (step tail) (map step args)))


hooks/post-receive
-- 
GNU Guile