From c8df8742d171446508fcaf9758858147ee93c4a8 Mon Sep 17 00:00:00 2001 From: Nathan Braswell Date: Wed, 26 Jan 2022 22:45:16 -0500 Subject: [PATCH] Actualy I'm just going to disable memo except for recursion detection --- partial_eval.csc | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/partial_eval.csc b/partial_eval.csc index 12f4f78..4fbf278 100644 --- a/partial_eval.csc +++ b/partial_eval.csc @@ -476,7 +476,7 @@ (get_pe_passthrough (dlambda (hash (env_counter memo) x) (let ((r (get-value-or-false memo hash))) (cond ((= r false) false) ((= r nil) (array (array env_counter memo) nil x)) ; Nil is for preventing infinite recursion - (true (array (array env_counter memo) nil x)) ; Nil is for preventing infinite recursion + (true false) ; This is causing bad compiles! ; Temporarily disabled. Somehow is re-introducing fake envs that aren't in scope or somesuch ;(true (array (array env_counter memo) nil r))