trying to determine toplevel references

2012-03-02 01:13:10 -05:00 · 2012-03-02 01:13:10 -05:00 · 07d569a66b
commit 07d569a66b
parent cd7b8904f5
1 changed files with 4 additions and 0 deletions
--- a/compiler/compiler.rkt
+++ b/compiler/compiler.rkt
@ -513,6 +513,10 @@
                                              (ToplevelRef-depth exp)
                                              (ToplevelRef-pos exp)))
                               empty-instruction-sequence)
+                           (if (ToplevelRef-constant? exp)
+                               (make-Comment (format "Constant toplevel ref: ~s"
+                                                     (extract-static-knowledge exp cenv)))
+                               empty-instruction-sequence)
                           (make-AssignImmediate
                            target
                            (make-EnvPrefixReference (ToplevelRef-depth exp)