From fe04b145b54055961bd0006ddd95ff0356ea919f Mon Sep 17 00:00:00 2001
From: Justine Tunney <jtunney@gmail.com>
Date: Sun, 12 Dec 2021 14:48:00 -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 8a264e9..237588d 100644
--- a/sectorlisp.S
+++ b/sectorlisp.S
@@ -180,7 +180,7 @@ GetList:call	GetToken
 	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