Reify call-thunk/no-inline.

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

diff --git a/module/language/cps/reify-primitives.scm b/module/language/cps/reify-primitives.scm
index ebd2da0..34700b1 100644 (file)
--- 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))