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

Ok, finished fixing check_for_env_id_in_result, now works up to before. Weirdly, we're now just back to the previous error, and I think I might have reintroduced exponential behavior with the env_id searching

Browse Source
This commit is contained in:
Nathan Braswell
2022-01-22 00:56:02 -05:00
parent 99926cdb7c
commit 94e2d62a10
2 changed files with 21 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
to_compile.kp
View File

@@ -7,8 +7,8 @@
(let1 lambda (vau se (p b1) (wrap (eval (array vau p b1) se)))
(let1 current-env (vau de () de)
(let1 cons (lambda (h t) (concat (array h) t))
;(let1 lapply (lambda (f p) (eval (cons (unwrap f) p) (current-env)))
;(let1 vapply (lambda (f p ede) (eval (cons f p) ede))
(let1 lapply (lambda (f p) (eval (cons (unwrap f) p) (current-env)))
(let1 vapply (lambda (f p ede) (eval (cons f p) ede))
;(let1 Y (lambda (f)
; ((lambda (x1) (x1 x1))
; (lambda (x2) (f (lambda (& y) (lapply (x2 x2) y))))))
@@ -20,14 +20,14 @@
(array 'open 3 "test_self_out" (lambda (fd code)
(array 'write fd "wabcdefgh" (lambda (written code)
(array 'write fd "wabcdefghi" (lambda (written code)
(array 'exit written)))))
;(array 'write 1 "test_self_out2" (vau (written code) 1))
; end of all lets
));)))))
))));)))
)
; impl of let1