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

check_for_env_id_in_result fixed, I had accidentally left it unimplemented. Bug with envs escaping when they weren't real fixed, and most everything works, but compiling lapply fails now

Browse Source
This commit is contained in:
Nathan Braswell
2022-01-22 00:19:10 -05:00
parent 8a1e92cd70
commit 99926cdb7c
2 changed files with 34 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
to_compile.kp
View File

@@ -7,11 +7,11 @@
(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 Y (lambda (f)
((lambda (x1) (x1 x1))
(lambda (x2) (f (lambda (& y) (lapply (x2 x2) y))))))
;(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))))))
;(let1 vY (lambda (f)
; ((lambda (x3) (x3 x3))
; (lambda (x4) (f (vau de (& y) (vapply (x4 x4) y de))))))
@@ -20,14 +20,14 @@
(array 'open 3 "test_self_out" (lambda (fd code)
(array 'write fd "wabcdefge" (lambda (written code)
(array 'write fd "wabcdefgh" (lambda (written code)
(array 'exit written)))))
;(array 'write 1 "test_self_out2" (vau (written code) 1))
; end of all lets
)))));))
));)))))
)
; impl of let1