Reclaim dictionary space used to save strings

parent 4f61f4de
......@@ -22,5 +22,6 @@ require except.fs
\ now boot
save-strings
pathstring 2@ argv @ argc @ boot
\ No newline at end of file
......@@ -151,21 +151,21 @@ AVariable boot[][] \ arrays to be booted
Create here $[]saved 0 , ;
: boot-strings ( -- )
boot[][] @ >r
boot$[] $boot
boot$[] $@ bounds ?DO
I @ $boot
cell +LOOP
boot[][] $boot
boot$[] $boot
boot[][] $@ bounds ?DO
I @ $[]boot
cell +LOOP
rdrop ( r> dp ! ) ;
boot$[] $@ bounds ?DO
I @ $boot
cell +LOOP
r> dp ! ;
: save-strings ( -- )
boot[][] $save
boot$[] $save
boot[][] $@ bounds ?DO
I @ $[]save
cell +LOOP
boot$[] $save
boot$[] $@ bounds ?DO
I @ $save
cell +LOOP ;
......
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