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

First vau-involved partial evals working!

Browse Source
This commit is contained in:
Nathan Braswell
2021-08-15 01:27:53 -04:00
parent b3c02c82b3
commit 05092cba76
4 changed files with 62 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
partial_eval_test.kp
View File

@@ -8,17 +8,22 @@
_ (println "Stripped: " stripped)
fully_evaled (eval stripped)
_ (println "Fully evaled: " fully_evaled)
_ (if (combiner? fully_evaled) (println "..and called " (fully_evaled 1337)))
_ (println)
) fully_evaled))
simple_add (read-string "(+ 1 2)")
vau_with_add (read-string "(vau (x) (+ 1 2))")
vau_with_add_called (read-string "((vau (x) (+ 1 2)) 4)")
vau_with_passthrough (read-string "((vau (x) x) 4)")
vau_with_no_eval_add (read-string "((vau (x) (+ 1 2 x)) 4)")
vau_with_add_p (read-string "(vau de (x) (+ (eval x de) (+ 1 2)))")
vau_with_add_p_called (read-string "((vau de (x) (+ (eval x de) (+ 1 2))) 4)")
_ (test-case simple_add)
_ (test-case vau_with_add)
_ (test-case vau_with_add_p)
_ (test-case vau_with_add_called)
_ (test-case vau_with_add_p_called)
_ (test-case vau_with_passthrough)
_ (test-case vau_with_no_eval_add)
;_ (test-case vau_with_add_p)
;_ (test-case vau_with_add_p_called)
) nil))