summaryrefslogtreecommitdiff
path: root/module/language/scheme/decompile-tree-il.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2013-06-27 19:28:42 +0200
committerAndy Wingo <wingo@pobox.com>2013-06-27 22:02:43 +0200
commit86d0eb31df4b1a28df74ff3d91de66223291e351 (patch)
tree0cc3b858aab25f7c7071e54d00ffe2f5c635f68f /module/language/scheme/decompile-tree-il.scm
parentbb97e4abd49e8094e9eb8bf767c696bf7ee1ba7e (diff)
downloadguile-86d0eb31df4b1a28df74ff3d91de66223291e351.tar.gz
replace <dynref> with primcalls to fluid-ref
* doc/ref/compiler.texi (Tree-IL): Remove mention of <dynref>. * module/language/scheme/decompile-tree-il.scm (do-decompile): (choose-output-names): Remove dynref. * module/language/tree-il.scm (<tree-il>, parse-tree-il): (unparse-tree-il, make-tree-il-folder, pre-post-order): Remove <dynref>. * module/language/tree-il/analyze.scm (analyze-lexicals): * module/language/tree-il/compile-glil.scm (*primcall-ops*): Add fluid-ref. (flatten-lambda-case): Remove <dynref> case. * module/language/tree-il/cse.scm (cse): * module/language/tree-il/debug.scm (verify-tree-il): Remove <dynref> cases. * module/language/tree-il/effects.scm (make-effects-analyzer): Remove <dynref> case. Add a primcall fluid-ref case. * module/language/tree-il/peval.scm (peval): Remove dynref cases. * module/language/tree-il/primitives.scm (*primitive-expand-table*): Remove fluid-ref -> dynref transformation.
Diffstat (limited to 'module/language/scheme/decompile-tree-il.scm')
-rw-r--r--module/language/scheme/decompile-tree-il.scm4
1 files changed, 0 insertions, 4 deletions
diff --git a/module/language/scheme/decompile-tree-il.scm b/module/language/scheme/decompile-tree-il.scm
index b265b936c..928ddb3d3 100644
--- a/module/language/scheme/decompile-tree-il.scm
+++ b/module/language/scheme/decompile-tree-il.scm
@@ -438,9 +438,6 @@
(map recurse vals))
,@(recurse-body body)))
- ((<dynref> fluid)
- `(fluid-ref ,(recurse fluid)))
-
((<dynset> fluid exp)
`(fluid-set! ,(recurse fluid) ,(recurse exp)))
@@ -762,7 +759,6 @@
(for-each recurse vals)
(recurse body))
- ((<dynref> fluid) (primitive 'fluid-ref) (recurse fluid))
((<dynset> fluid exp)
(primitive 'fluid-set!) (recurse fluid) (recurse exp))