mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

simplify primitives.scm for dynwind

Browse source 
* module/language/tree-il/primitives.scm (*primitive-expand-table*):
  Remove a dynwind hack, as we have a good inliner now.
This commit is contained in:
Andy Wingo 2011-11-09 16:44:59 +01:00
parent 8ee0b28b4d
commit acdf4fcc05
1 changed files with 13 additions and 30 deletions
Download patch file Download diff file Expand all files Collapse all files

43
module/language/tree-il/primitives.scm
View file

@ -473,36 +473,19 @@
'dynamic-wind
(case-lambda
((src pre thunk post)
;; Here we will make concessions to the fact that our inliner is
;; lame, and add a hack.
(cond
((lambda? thunk)
(let ((PRE (gensym " pre"))
(POST (gensym " post")))
(make-let
src
'(pre post)
(list PRE POST)
(list pre post)
(make-dynwind
src
(make-lexical-ref #f 'pre PRE)
(make-application #f thunk '())
(make-lexical-ref #f 'post POST)))))
(else
(let ((PRE (gensym " pre"))
(THUNK (gensym " thunk"))
(POST (gensym " post")))
(make-let
src
'(pre thunk post)
(list PRE THUNK POST)
(list pre thunk post)
(make-dynwind
src
(make-lexical-ref #f 'pre PRE)
(make-application #f (make-lexical-ref #f 'thunk THUNK) '())
(make-lexical-ref #f 'post POST)))))))
(let ((PRE (gensym " pre"))
(THUNK (gensym " thunk"))
(POST (gensym " post")))
(make-let
src
'(pre thunk post)
(list PRE THUNK POST)
(list pre thunk post)
(make-dynwind
src
(make-lexical-ref #f 'pre PRE)
(make-application #f (make-lexical-ref #f 'thunk THUNK) '())
(make-lexical-ref #f 'post POST)))))
(else #f)))
(hashq-set! *primitive-expand-table*