From ec8c0ce6df07e2a58f87e291192e2cd20ea50e94 Mon Sep 17 00:00:00 2001 From: Justine Tunney Date: Sun, 12 Dec 2021 14:49:02 -0800 Subject: [PATCH] Have Apply call Assoc --- sectorlisp.S | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/sectorlisp.S b/sectorlisp.S index 003a9ea..1e7490d 100644 --- a/sectorlisp.S +++ b/sectorlisp.S @@ -186,7 +186,7 @@ Gc: cmp %dx,%di # Gc(x:di,A:dx,B:si):ax ret .resolv:push %si - call Eval # do (fn si) → ((λ ...) si) + call Assoc # do (fn si) → ((λ ...) si) pop %si Apply: test %ax,%ax # Apply(fn:ax,x:si:a:dx):ax jns .switch # jump if atom