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

open coded a few more list primitives

Browse Source
This commit is contained in:
Danny Yoo 2011-03-26 20:16:22 -04:00
parent e862a43ae5
commit 6387e19157
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compile.rkt
View File

@ -377,12 +377,14 @@
[(symbol=? (ModuleVariable-module-path op-knowledge) '#%kernel)
(let ([op (ModuleVariable-name op-knowledge)])
(cond [(KernelPrimitiveName? op)
#;(printf "Open coded: ~s\n" (ModuleVariable-name op-knowledge))
(compile-kernel-primitive-application
op
exp cenv extended-cenv target linkage)]
[else
(default)]))]
[else
#;(printf "Candidate for open coding: ~s\n" (ModuleVariable-name op-knowledge))
(default)])]
[(StaticallyKnownLam? op-knowledge)
(compile-statically-known-lam-application op-knowledge exp cenv extended-cenv target linkage)]