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

fixing typo

Browse Source
This commit is contained in:
Danny Yoo 2011-09-06 16:39:37 -04:00
parent 64e66eaf28
commit 386b2575e2
1 changed files with 2 additions and 48 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
compiler/optimize-il.rkt
View File

@ -152,53 +152,7 @@
(InstallModuleEntry!-path cmd) (InstallModuleEntry!-path cmd)
(ref (InstallModuleEntry!-entry-point cmd)))] (ref (InstallModuleEntry!-entry-point cmd)))]
[else [else
cmd] cmd]))
;; [(CheckToplevelBound!? cmd)
;; cmd]
;; [(CheckClosureArity!? cmd)
;; cmd]
;; [(CheckPrimitiveArity!? cmd)
;; cmd]
;; [(ExtendEnvironment/Prefix!? cmd)
;; cmd]
;; [(InstallClosureValues!? cmd)
;; cmd]
;; [(FixClosureShellMap!? cmd)
;; cmd]
;; [(InstallContinuationMarkEntry!? cmd)
;; cmd]
;; [(SetFrameCallee!? cmd)
;; cmd]
;; [(SpliceListIntoStack!? cmd)
;; cmd]
;; [(UnspliceRestFromStack!? cmd)
;; cmd]
;; [(RaiseContextExpectedValuesError!? cmd)
;; cmd]
;; [(RaiseArityMismatchError!? cmd)
;; cmd]
;; [(RaiseOperatorApplicationError!? cmd)
;; cmd]
;; [(RaiseUnimplementedPrimitiveError!? cmd)
;; cmd]
;; [(RestoreEnvironment!? cmd)
;; cmd]
;; [(RestoreControl!? cmd)
;; cmd]
;; [(MarkModuleInvoked!? cmd)
;; cmd]
;; [(AliasModuleAsMain!? cmd)
;; cmd]
;; [(FinalizeModuleInvokation!? cmd)
;; cmd]
))
(: rewrite-primtest (PrimitiveTest -> PrimitiveTest)) (: rewrite-primtest (PrimitiveTest -> PrimitiveTest))
@ -342,7 +296,7 @@
(let ([first-n (PopEnvironment-n first-stmt)] (let ([first-n (PopEnvironment-n first-stmt)]
[second-n (PopEnvironment-n second-stmt)] [second-n (PopEnvironment-n second-stmt)]
[first-skip (PopEnvironment-skip first-stmt)] [first-skip (PopEnvironment-skip first-stmt)]
[second-skip (PopEnvironment-skip first-stmt)]) [second-skip (PopEnvironment-skip second-stmt)])
(cond [(and (Const? first-n) (Const? second-n) (Const? first-skip) (Const? second-skip)) (cond [(and (Const? first-n) (Const? second-n) (Const? first-skip) (Const? second-skip))
(let ([first-n-val (Const-const first-n)] (let ([first-n-val (Const-const first-n)]
[second-n-val (Const-const second-n)] [second-n-val (Const-const second-n)]