Commits

crcx committed dcdcae5 Draft

trivial hack for {{ ---reveal--- }} with public only functions

  • Participants
  • Parent commits 774fd77

Comments (0)

Files changed (3)

 
 label: copytag   "Retro" $,
 label: version   "11.5" $,
-label: build     "2012.11.16" $,
+label: build     "2012.12.10" $,
 label: okmsg     "ok  " $,
 
 t: ,           ( n-  ) heap # @, dup, 1+, push, !, pop, heap # !, ;
     [ heap @ [ next @ heap ! default: header heap @ next ! ] dip heap ! here last @ d->xt ! ]
     [ default: header ] if ] is header
 
-  [ split  on scratch next ! default: {{           ] is {{
-  [ split off                default: ---reveal--- ] is ---reveal---
-  [ split off                default: }}           ] is }}
+  create z
+     999 , 999 , 0 ,
+
+  [ split  on scratch next ! default: {{           z header ] is {{
+  [ split off                default: ---reveal---          ] is ---reveal---
+  [ split off                default: }}                    ] is }}
 }}
 
 ( Dictionary ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ )

retroImage

Binary file modified.

vm/complete/retro.c

    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
 #define CELL            int32_t
 #define IMAGE_SIZE      1000000
-#define ADDRESSES          1024
+#define ADDRESSES          1024*1024
 #define STACK_DEPTH         128
 #define PORTS                12
 #define MAX_FILE_NAME      1024