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

Fix regression - was using the wrong error when blocking recursion and treating as real error instead of stop recursion fallback

Browse Source
This commit is contained in:
Nathan Braswell
2022-04-25 09:19:14 -04:00
parent 223147f699
commit d420b6491f
3 changed files with 13 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
partial_eval.scm
View File

@@ -4572,7 +4572,7 @@
(ctx (array datasi funcs memo env pectx inline_locals))
) (array (mif e x pex) e ctx)))))
) (array (mif e x pex) err ctx)))))
((datasi funcs memo env pectx inline_locals) ctx)
(memo (put memo (.hash c) 'RECURSE_FAIL))
(ctx (array datasi funcs memo env pectx inline_locals))
@@ -4741,7 +4741,7 @@
((param_codes first_params_err ctx) (compile_params false ctx params))
((func_val func_code func_err ctx) (compile-inner ctx func_value false inside_veval s_env_access_code inline_level))
((unval_param_codes err ctx) (compile_params true ctx params))
((bad_unval_params_msg_val _ _ ctx) (compile-inner ctx (marked_val (str "error was with unval-evaling parameters of " (str_strip c))) true inside_veval s_env_access_code inline_level))
((bad_unval_params_msg_val _ _ ctx) (compile-inner ctx (marked_val (str "error was with unval-evaling parameters of " (true_str_strip c) " " err)) true inside_veval s_env_access_code inline_level))
(wrap_param_code (lambda (code) (concat
(local.get '$tmp) ; saving ito restore it
code