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

work around for the typechecking slow typing behavior: needed to reorder clauses and use else to cut things off quickly

Browse Source
This commit is contained in:
Danny Yoo 2011-05-11 14:45:37 -04:00
parent 8fe3fbc9a4
commit e8e28afa19
1 changed files with 35 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collect-jump-targets.rkt
View File

@ -125,7 +125,12 @@
(: collect-primitive-command (PrimitiveCommand -> (Listof Symbol))) (: collect-primitive-command (PrimitiveCommand -> (Listof Symbol)))
(define (collect-primitive-command op) (define (collect-primitive-command op)
(cond (cond
[(CheckToplevelBound!? op) [(InstallModuleEntry!? op)
(list (InstallModuleEntry!-entry-point op))]
[else
empty]
;; currently written this way because I'm hitting some bad type-checking behavior.
#;([(CheckToplevelBound!? op)
empty] empty]
[(CheckClosureArity!? op) [(CheckClosureArity!? op)
empty] empty]
@ -154,9 +159,8 @@
[(RaiseArityMismatchError!? op) [(RaiseArityMismatchError!? op)
empty] empty]
[(RaiseOperatorApplicationError!? op) [(RaiseOperatorApplicationError!? op)
empty] empty])))
[(InstallModuleEntry!? op)
(list (InstallModuleEntry!-entry-point op))]))