From 9f67194788cd9f6b8b576e31ecb7f3059648a659 Mon Sep 17 00:00:00 2001
From: Tim Vaughan <tgvaughan@gmail.com>
Date: Fri, 22 Jul 2016 21:15:19 +1200
Subject: [PATCH] Fixed bug in apply.

---
 scheme.4th | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/scheme.4th b/scheme.4th
index 893b20b..1f2111a 100644
--- a/scheme.4th
+++ b/scheme.4th
@@ -20,7 +20,7 @@ include defer-is.4th
 
 \ ------ Cons cell memory ------ {{{
 
-1000 constant N
+10000 constant N
 create car-cells N allot
 create car-type-cells N allot
 create cdr-cells N allot
@@ -972,7 +972,7 @@ defer eval
                 begin
                     2dup cdr 2dup nil objeq? false =
                 while
-                    -2rot car over ( nextbody env exp env )
+                    -2rot car 2over ( nextbody env exp env )
                     eval
                     2drop \ discard result
                     2swap ( env nextbody )
-- 
2.20.1