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

re-enabling static calls

Browse Source
This commit is contained in:
Danny Yoo 2011-03-25 19:56:30 -04:00
parent bcf623277f
commit b8d37d3325
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compile.rkt
View File

@ -396,14 +396,14 @@
(default)] (default)]
[(StaticallyKnownLam? static-knowledge) [(StaticallyKnownLam? static-knowledge)
;; Currently disabling the static analysis stuff till I get error trapping working first. ;; Currently disabling the static analysis stuff till I get error trapping working first.
(default) #;(default)
#;(unless (= n (StaticallyKnownLam-arity static-knowledge)) (unless (= n (StaticallyKnownLam-arity static-knowledge))
(error 'arity-mismatch "Expected ~s, received ~s" (error 'arity-mismatch "Expected ~s, received ~s"
(StaticallyKnownLam-arity static-knowledge) (StaticallyKnownLam-arity static-knowledge)
n)) n))
;; FIXME: do the arity check here... ;; FIXME: do the arity check here...
#;(printf "I'm here with ~s\n" static-knowledge) #;(printf "I'm here with ~s\n" static-knowledge)
#;(compile-procedure-call/statically-known-lam static-knowledge (compile-procedure-call/statically-known-lam static-knowledge
extended-cenv extended-cenv
n n
target target