[Guile-commits] GNU Guile branch, wip-peval-predicates, updated. v2.0.5-101-g8186d7a

[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=8186d7acfcd8aa888390d89934fa4508c026613a

The branch, wip-peval-predicates has been updated
       via  8186d7acfcd8aa888390d89934fa4508c026613a (commit)
      from  59c557056cff1ce6146b4d689eeee922300b6278 (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 8186d7acfcd8aa888390d89934fa4508c026613a
Author: Andy Wingo <address@hidden>
Date:   Tue Apr 10 16:08:19 2012 -0700

    fix peval for-effect elision
    
    * module/language/tree-il/peval.scm (peval): Fix for-effect processing.

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

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

diff --git a/module/language/tree-il/peval.scm 
b/module/language/tree-il/peval.scm
index c6e0b7d..e649e49 100644
--- a/module/language/tree-il/peval.scm
+++ b/module/language/tree-il/peval.scm
@@ -1543,7 +1543,7 @@ top-level bindings from ENV and return the resulting 
expression."
                  src
                  (reverse (cons (visit/db last ctx db) effects)))))
            ((head . rest)
-            (let ((head (visit/db head ctx db)))
+            (let ((head (visit/db head 'effect db)))
               (cond
                ((sequence? head)
                 (lp (append (sequence-exps head) rest) effects db))


hooks/post-receive
-- 
GNU Guile