From bb5a9deb5f17b0e4cc89c8577b745a44ae5b1bdd Mon Sep 17 00:00:00 2001
From: Drahflow <drahflow@gmx.de>
Date: Wed, 2 Oct 2013 11:53:04 +0200
Subject: Fixed obnoxious "not a scope" error after freeze

---
 compiler/standardClient.ey | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'compiler/standardClient.ey')

diff --git a/compiler/standardClient.ey b/compiler/standardClient.ey
index 30b7be2..bdc637c 100644
--- a/compiler/standardClient.ey
+++ b/compiler/standardClient.ey
@@ -806,7 +806,7 @@
   { 0 dumpIndented }
 > -- /dump deffd
 
-{ ==filename # ==f (left on the stack and executed from sys .asm .programStart)
+{ ==filename # ==f (left on the stack a while and executed from sys .asm .programStart)
   sys .asm .patchProgramStart ==frozenAllocationCount
 
   # hex decoding
@@ -1004,10 +1004,12 @@
 
   out .close
 
+  ==f
+
   sys .asm .patchProgramStart frozenAllocationCount neq {
     "freezing allocated new memory chunks, retrying..." dump
-    filename sys .freeze
-  }
+    f filename sys .freeze
+  } rep
 } /freeze sys .deff
 
 # no long-term stack use here as the executed program uses it as well
@@ -1024,9 +1026,7 @@
 }" /includeFile deffd
 
 { # ==?filename
-  sys .file -0010 .open
-                  includeFile
-                  .close
+  sys .file _ _ .|open -01 |includeFile -01 .|close ; ; -120 * # can use neither stack nor scope for storage here
 }" /include deffd
 
 # vim: syn=elymas
-- 
cgit v1.2.3