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

More vau usage working

Browse Source
This commit is contained in:
Nathan Braswell
2021-08-16 00:37:56 -04:00
parent 05092cba76
commit 550565a235
2 changed files with 17 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
partial_eval_test.kp
View File

@@ -13,12 +13,12 @@
) 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)")
vau_with_add (read-string "(vau (y) (+ 1 2))")
vau_with_add_called (read-string "((vau (y) (+ 1 2)) 4)")
vau_with_passthrough (read-string "((vau (y) y) 4)")
vau_with_no_eval_add (read-string "((vau (y) (+ 13 2 y)) 4)")
vau_with_add_p (read-string "(vau de (y) (+ (eval y de) (+ 1 2)))")
vau_with_add_p_called (read-string "((vau de (y) (+ (eval y de) (+ 1 2))) 4)")
_ (test-case simple_add)
_ (test-case vau_with_add)
_ (test-case vau_with_add_called)