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

Added support for strings to array functions for evaluator (compiled is next)

Browse Source
This commit is contained in:
Nathan Braswell
2022-03-12 20:19:00 -05:00
parent d87f292c1c
commit d1b6e520f9
2 changed files with 44 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
to_compile.kp
View File

@@ -826,12 +826,7 @@
(implicit_env (drop_redundent_veval partial_eval_helper ebody de env_stack pectx indent))
((combiner_return_ok ebody (.marked_env_idx eval_env)) (drop_redundent_veval partial_eval_helper ebody de env_stack pectx indent))
(true (drop_redundent_veval partial_eval_helper (marked_array false true nil (array
; HMMMMM
; This fails because we haven't implemented for
; array like stuff for string, including len
(marked_prim_comb recurse 'veval -1 true)
;
;(marked_array false true nil (array ))
ebody
eval_env
))
@@ -845,7 +840,7 @@
(and_fold (foldl and true '(true true false true)))
(monad (array 'write 1 (str "Hello from compiled code! " and_fold "\n") (vau (written code) (array 'exit 0))))
(monad (array 'write 1 (str "Hello from compiled code! " and_fold " here's a hashed string " (hash_string "hia") "\n") (vau (written code) (array 'exit 0))))
) monad)
)