Nested blocks

davazp · Apr 24, 2012 · f95ca63 · f95ca63
1 parent 5111bec
commit f95ca63
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/input.fs b/input.fs
@@ -113,8 +113,9 @@ variable blk
 
 \ TODO: Not to use buffers to evaluate the blocks
 : load ( u -- )
+    blk? @
     blk? on
     blk @ swap dup blk ! block 1024 evaluate blk !
-    blk? off ;
+    blk? ! ;
 
 \ input.fs ends here