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)]
[(StaticallyKnownLam? static-knowledge)
;; Currently disabling the static analysis stuff till I get error trapping working first.
(default)
#;(unless (= n (StaticallyKnownLam-arity static-knowledge))
#;(default)
(unless (= n (StaticallyKnownLam-arity static-knowledge))
(error 'arity-mismatch "Expected ~s, received ~s"
(StaticallyKnownLam-arity static-knowledge)
n))
;; FIXME: do the arity check here...
#;(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
n
target