[Guile-commits] GNU Guile branch, master, updated. v2.1.0-238-g5bd4b65

[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=5bd4b6585b3733077d0a36265ce057611836e163

The branch, master has been updated
       via  5bd4b6585b3733077d0a36265ce057611836e163 (commit)
      from  8d59d55e866666a4ed3b9695638265be62b20af0 (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 5bd4b6585b3733077d0a36265ce057611836e163
Author: Andy Wingo <address@hidden>
Date:   Mon Oct 14 16:43:42 2013 +0200

    Reify call-thunk/no-inline.
    
    * module/language/cps/reify-primitives.scm (reify-primitives): Remove
      call-thunk/no-inline in this late phase.

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

Summary of changes:
 module/language/cps/reify-primitives.scm |    3 +++
 1 files changed, 3 insertions(+), 0 deletions(-)

diff --git a/module/language/cps/reify-primitives.scm 
b/module/language/cps/reify-primitives.scm
index ebd2da0..34700b1 100644
--- a/module/language/cps/reify-primitives.scm
+++ b/module/language/cps/reify-primitives.scm
@@ -101,6 +101,9 @@
                (_ (build-cps-term ($continue k ($void))))))
             (($ $fun)
              (build-cps-term ($continue k ,(visit-fun exp))))
+            (($ $primcall 'call-thunk/no-inline (proc))
+             (build-cps-term
+               ($continue k ($call proc ()))))
             (($ $primcall name args)
              (cond
               ((or (prim-rtl-instruction name) (branching-primitive? name))


hooks/post-receive
-- 
GNU Guile