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

Continue brain-dumping psudocode and notes. I think I've got most everything critical now

Browse Source
This commit is contained in:
Nathan Braswell
2022-03-21 23:50:59 -04:00
parent b3122f62d1
commit 5c1473d32c
2 changed files with 214 additions and 120 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
partial_eval.scm
View File

@@ -824,8 +824,8 @@
(_ (print_strip (indent_str indent) "evaled result of function call (in env " (.marked_env_idx env) ", with inner " env_id ") and err " func_err " is " func_result))
(must_stop_maybe_id (and (= nil func_err)
(or rec_stop (if (not (combiner_return_ok func_result env_id))
(if (!= nil de?) (.marked_env_idx env) true)
false))))
(if (!= nil de?) (.marked_env_idx env) true)
false))))
) (if (!= nil func_err) (array pectx func_err nil)
(if must_stop_maybe_id
(array pectx nil (marked_array false must_stop_maybe_id (if rec_stop (array hash) nil) (cons (with_wrap_level comb remaining_wrap) evaled_params)))