miloignis/kraken
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Some work from previously, and also now an implementation of destructuring let

Browse Source
This commit is contained in:
Nathan Braswell
2021-11-16 00:15:53 -05:00
parent 627ccb4aa0
commit d4ff61ade5
3 changed files with 98 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
partial_eval.kp
View File

@@ -90,7 +90,6 @@
(marked_symbol? x) (if (.marked_symbol_is_val x) ['quote (.marked_symbol_value x)]
(.marked_symbol_value x))
(comb? x) (let ([wrap_level de? se variadic params body] (.comb x))
;(str "<comb " wrap_level " " de? " <se> " params " " (recurse body) ">"))
(str "<comb " wrap_level " " de? " <se " (recurse se) "> " params " " (recurse body) ">"))
(prim_comb? x) (idx x 2)
(marked_env? x) (let (e (.env_marked x)