dmbcs/guile
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Reify call-thunk/no-inline.

Browse source 
* module/language/cps/reify-primitives.scm (reify-primitives): Remove
  call-thunk/no-inline in this late phase.
This commit is contained in:
Andy Wingo 2013-10-14 16:43:42 +02:00
commit 5bd4b6585b
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
module/language/cps/reify-primitives.scm
View file

@ -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))