Small name change

parent 66b6ad4a
......@@ -123,7 +123,7 @@
: $save ( $addr -- )
\G push string to dictionary for savesys
dup >r $@ here r> ! dup , here swap dup aligned allot move ;
: $boot[] ( addr -- )
: $[]boot ( addr -- )
\G take string array from dictionary to allocated memory
dup $boot $@ bounds ?DO
I $boot
......@@ -157,7 +157,7 @@ AVariable boot[][] \ arrays to be booted
cell +LOOP
boot[][] $boot
boot[][] $@ bounds ?DO
I @ $boot[]
I @ $[]boot
cell +LOOP
rdrop ( r> dp ! ) ;
: save-strings ( -- )
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment