From 07d569a66b6015822137bffd966ff7f2db3abbe6 Mon Sep 17 00:00:00 2001 From: Danny Yoo Date: Fri, 2 Mar 2012 01:13:10 -0500 Subject: [PATCH] trying to determine toplevel references --- compiler/compiler.rkt | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/compiler/compiler.rkt b/compiler/compiler.rkt index 437f569..54d967a 100644 --- 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)