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

moving lam+cenv out to the compiler structs.

Browse Source
This commit is contained in:
Danny Yoo 2012-03-23 13:17:10 -04:00
parent ce7a998ba8
commit c74d3680b6
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/compiler-structs.rkt
View File

@ -1,4 +1,6 @@
#lang typed/racket/base #lang typed/racket/base
(require "expression-structs.rkt"
"analyzer-structs.rkt")
(provide (all-defined-out)) (provide (all-defined-out))
@ -38,3 +40,8 @@
(define-type Linkage (U NextLinkage (define-type Linkage (U NextLinkage
LabelLinkage LabelLinkage
ReturnLinkage)) ReturnLinkage))
;; Lambda and compile-time environment
(define-struct: lam+cenv ([lam : (U Lam CaseLam)]
[cenv : CompileTimeEnvironment]))

2
compiler/compiler.rkt
View File

@ -63,8 +63,6 @@
(make-AssignImmediate target (make-Reg 'val)))))))) (make-AssignImmediate target (make-Reg 'val))))))))
(define-struct: lam+cenv ([lam : (U Lam CaseLam)]
[cenv : CompileTimeEnvironment]))