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

With some bugfixes, sucessfully got let4.7 working, which is like let5 but written in macro style! Stiil need to finish up strip for the cases like let5 that we can't finish for now.

Browse Source
This commit is contained in:
Nathan Braswell
2021-10-19 02:26:19 -04:00
parent 92ac879c6d
commit e0c4366771
2 changed files with 33 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
partial_eval_test.kp
View File

@@ -61,6 +61,13 @@
let3_test (read-string "((wrap (vau (let1) (let1 a 12 (wrap (vau (x) (+ x a 1)))))) (vau de (s v b) (eval (array (array vau (array s) b) (eval v de)) de)))")
let4_test (read-string "((wrap (vau (let1) (let1 a 12 (wrap (vau (x) (let1 y (+ a 1) (+ y x a))))))) (vau de (s v b) (eval (array (array vau (array s) b) (eval v de)) de)))")
let4.3_test (read-string "((wrap (vau (let1)
(let1 a 12 (wrap (vau (x) (let1 y (+ a 1) (+ y x a))))
))) (vau de (s v b) (eval (array (array wrap (array vau (array s) b)) v) de)))")
let4.7_test (read-string "((wrap (vau (let1)
(let1 a 12 (wrap (vau (x) (let1 y (+ x a 1) (+ y x a))))
))) (vau de (s v b) (eval (array (array wrap (array vau (array s) b)) v) de)))")
;!!!!!!!!!!!!!!!!!!!!!!!!!!
; Which means we need TODO
;!!!!!!!!!!!!!!!!!!!!!!!!!!
@@ -149,6 +156,8 @@
_ (test-case let2_test)
_ (test-case let3_test)
_ (test-case let4_test)
_ (test-case let4.3_test)
_ (test-case let4.7_test)
_ (test-case let5_test)
_ (test-case lambda1_test)