suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

trying to determine toplevel references

Browse Source
This commit is contained in:
Danny Yoo 2012-03-02 01:13:10 -05:00
parent cd7b8904f5
commit 07d569a66b
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/compiler.rkt
View File

@ -513,6 +513,10 @@
(ToplevelRef-depth exp) (ToplevelRef-depth exp)
(ToplevelRef-pos exp))) (ToplevelRef-pos exp)))
empty-instruction-sequence) empty-instruction-sequence)
(if (ToplevelRef-constant? exp)
(make-Comment (format "Constant toplevel ref: ~s"
(extract-static-knowledge exp cenv)))
empty-instruction-sequence)
(make-AssignImmediate (make-AssignImmediate
target target
(make-EnvPrefixReference (ToplevelRef-depth exp) (make-EnvPrefixReference (ToplevelRef-depth exp)