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

Ok, figured out why let5 is failing and wrote down a plan of attack

Browse Source
This commit is contained in:
Nathan Braswell
2021-09-07 00:06:19 -04:00
parent 12271ff27c
commit f89b21420a
2 changed files with 36 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
partial_eval.kp
View File

@@ -208,8 +208,10 @@
func_result (recurse body inner_env imm_eval (+ 1 indent))
_ (println (indent_str indent) "evaled result of function call (imm_eval was " imm_eval ") is " func_result)
result (if (and (later? func_result)
(closes_over_var_from_this_env_marked inner_env func_result))
result_is_later (later? func_result)
result_closes_over (closes_over_var_from_this_env_marked inner_env func_result)
_ (println (indent_str indent) "func call result is later? " result_is_later " and result_closes_over " result_closes_over)
result (if (and result_is_later result_closes_over)
; this is exponential-y - we retry without imm to see if we can
; have a better partial eval'd later instead of giving up entirely
(let (comb (recurse (idx values 0) env false (+ 1 indent)))