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

require cleanup

Browse Source
This commit is contained in:
Danny Yoo 2011-03-18 22:52:56 -04:00
parent 26a5136195
commit afe489e4f4
5 changed files with 6 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compile.rkt
View File

@ -4,9 +4,7 @@
"lexical-structs.rkt" "lexical-structs.rkt"
"il-structs.rkt" "il-structs.rkt"
"lexical-env.rkt" "lexical-env.rkt"
"helpers.rkt"
"find-toplevel-variables.rkt" "find-toplevel-variables.rkt"
"sets.rkt"
racket/list) racket/list)
(provide (rename-out [-compile compile]) (provide (rename-out [-compile compile])

5
il-structs.rkt
View File

@ -50,11 +50,6 @@
;; An environment reference is either lexical or referring to a whole prefix.
(define-type EnvReference (U EnvLexicalReference
EnvWholePrefixReference))
;; instruction sequences ;; instruction sequences
(define-type UnlabeledStatement (U (define-type UnlabeledStatement (U

1
lexical-env.rkt
View File

@ -1,7 +1,6 @@
#lang typed/racket/base #lang typed/racket/base
(require racket/list (require racket/list
"il-structs.rkt"
"lexical-structs.rkt" "lexical-structs.rkt"
"sets.rkt") "sets.rkt")
(provide find-variable (provide find-variable

6
lexical-structs.rkt
View File

@ -35,6 +35,7 @@
(define-struct: EnvLexicalReference ([depth : Natural] (define-struct: EnvLexicalReference ([depth : Natural]
[unbox? : Boolean]) [unbox? : Boolean])
#:transparent) #:transparent)
(define-struct: EnvPrefixReference ([depth : Natural] (define-struct: EnvPrefixReference ([depth : Natural]
[pos : Natural] [pos : Natural]
[name : Symbol]) [name : Symbol])
@ -42,3 +43,8 @@
(define-struct: EnvWholePrefixReference ([depth : Natural]) (define-struct: EnvWholePrefixReference ([depth : Natural])
#:transparent) #:transparent)
;; An environment reference is either lexical or referring to a whole prefix.
(define-type EnvReference (U EnvLexicalReference
EnvWholePrefixReference))

2
test-assemble.rkt
View File

@ -2,10 +2,8 @@
(require "assemble.rkt" (require "assemble.rkt"
"browser-evaluate.rkt" "browser-evaluate.rkt"
"parse.rkt"
"lexical-structs.rkt" "lexical-structs.rkt"
"il-structs.rkt" "il-structs.rkt"
"compile.rkt"
racket/port racket/port
racket/promise racket/promise
racket/runtime-path) racket/runtime-path)