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

some cleanup

Browse Source
This commit is contained in:
Danny Yoo 2012-02-27 18:46:41 -05:00
parent 9aa1ac12d8
commit ca444e49ee
2 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/compiler.rkt
View File

@ -1286,13 +1286,12 @@
(define (ensure-simple-expression e) (define (ensure-simple-expression e)
(if (or (Constant? e) (if (or (Constant? e)
(LocalRef? e) (LocalRef? e)
(ToplevelRef? e) (ToplevelRef? e))
)
e e
(error 'ensure-simple-expression))) (error 'ensure-simple-expression)))
(: simple-operands->opargs ((Listof Expression) (Listof CompileTimeEnvironmentEntry) -> (Listof (U OpArg ModuleVariable)))) (: simple-operands->opargs ((Listof Expression) (Listof CompileTimeEnvironmentEntry) -> (Listof OpArg)))
;; Produces a list of OpArgs if all the operands are particularly simple, and false otherwise. ;; Produces a list of OpArgs if all the operands are particularly simple, and false otherwise.
(define (simple-operands->opargs rands knowledge) (define (simple-operands->opargs rands knowledge)
(map (lambda: ([e : Expression] (map (lambda: ([e : Expression]

1
compiler/il-structs.rkt
View File

@ -48,7 +48,6 @@
PrimitivesReference PrimitivesReference
ControlFrameTemporary ControlFrameTemporary
ModulePrefixTarget ModulePrefixTarget
ModuleVariable
)) ))
(define-struct: ModuleVariableThing () #:transparent) (define-struct: ModuleVariableThing () #:transparent)