aboutsummaryrefslogtreecommitdiff
path: root/compiler/standardClient.ey
diff options
context:
space:
mode:
authorDrahflow <drahflow@gmx.de>2013-10-02 11:53:04 +0200
committerDrahflow <drahflow@gmx.de>2013-10-02 11:53:04 +0200
commitbb5a9deb5f17b0e4cc89c8577b745a44ae5b1bdd (patch)
treed768741fb95bf09ea0a2d57c564361b0779b6633 /compiler/standardClient.ey
parent7ff5edb1b36c47bb45082958b870f3b0e05df062 (diff)
Fixed obnoxious "not a scope" error after freeze
Diffstat (limited to 'compiler/standardClient.ey')
-rw-r--r--compiler/standardClient.ey12
1 files changed, 6 insertions, 6 deletions
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