From e72fa2585feeb7fc1aaf482394ee8730a57274af Mon Sep 17 00:00:00 2001
From: Simon Forman <sforman@hushmail.com>
Date: Tue, 12 Nov 2019 09:18:58 -0800
Subject: [PATCH] Forgot to "return" from i combinator.

---
 thun/asm-dump.txt       |   1 +
 thun/compiler.markII.pl |   1 +
 thun/joy_asmii.bin      | Bin 644 -> 648 bytes
 3 files changed, 2 insertions(+)

diff --git a/thun/asm-dump.txt b/thun/asm-dump.txt
index 150cfaa..93593fb 100644
--- a/thun/asm-dump.txt
+++ b/thun/asm-dump.txt
@@ -184,6 +184,7 @@ label(H1),
 lsl_imm(6, 6, 15),
 ior(6, 6, 7),
 store_word(6, 0, 0),
+do_offset(H),
 label(I1),
 expr_cell(R, 4),
 expr_cell(S, 0)].
\ No newline at end of file
diff --git a/thun/compiler.markII.pl b/thun/compiler.markII.pl
index be9be7d..e454588 100644
--- a/thun/compiler.markII.pl
+++ b/thun/compiler.markII.pl
@@ -158,6 +158,7 @@ Mark II
     sub_base_from_offset(TEMP0, SP),
     sub_base_from_offset(TEMP1, SP),
     merge_and_store(TEMP0, TEMP1, SP),
+    jump(Main),  % We already wrote the stack cell so 'Main' not 'Done'.
 
 
     % ======================================
diff --git a/thun/joy_asmii.bin b/thun/joy_asmii.bin
index a9b23b8c0b20bbc129d4a334d348d9c24a20fd1e..99cb57ecba2302e100884cb09988e4aab9d12502 100644
GIT binary patch
delta 32
mcmZo+?O<iBnaHTmShCU3ok^hZ|NrMK3`PGL7%G66fdK%j912GO

delta 28
icmeBRZDD1sn8>KlSg_I1or#Bqq2xaULlqD+FaQ8)ss`x*