moving lam+cenv out to the compiler structs.

2012-03-23 13:17:10 -04:00 · 2012-03-23 13:17:10 -04:00 · c74d3680b6
commit c74d3680b6
parent ce7a998ba8
2 changed files with 7 additions and 2 deletions
--- a/compiler/compiler-structs.rkt
+++ b/compiler/compiler-structs.rkt
@ -1,4 +1,6 @@
 #lang typed/racket/base
+(require "expression-structs.rkt"
+         "analyzer-structs.rkt")


 (provide (all-defined-out))
@ -38,3 +40,8 @@
 (define-type Linkage (U NextLinkage
                        LabelLinkage
                        ReturnLinkage))
+
+
+;; Lambda and compile-time environment
+(define-struct: lam+cenv ([lam : (U Lam CaseLam)]
+                          [cenv : CompileTimeEnvironment]))
--- a/compiler/compiler.rkt
+++ b/compiler/compiler.rkt
@ -63,8 +63,6 @@
           (make-AssignImmediate target (make-Reg 'val))))))))


-(define-struct: lam+cenv ([lam : (U Lam CaseLam)]
-                          [cenv : CompileTimeEnvironment]))