Hide more

ueforth/common/blocks.fs

@@ -2,17 +2,19 @@
 internals definitions
 : clobber-line ( a -- a' ) dup 63 bl fill 63 + nl over c! 1+ ;
 : clobber ( a -- ) 15 for clobber-line next drop ;
+0 value block-dirty
+create block-data 1024 allot
 forth definitions internals
 
--1 value block-fid   variable scr   -1 value block-id   0 value block-dirty
-create block-data 1024 allot
+-1 value block-fid   variable scr   -1 value block-id
 : open-blocks ( a n -- )
    block-fid 0< 0= if block-fid close-file throw -1 to block-fid then
    2dup r/w open-file if drop r/w create-file throw else nip nip then to block-fid ;
 : use ( "name" -- ) bl parse open-blocks ;
+defer default-use
 internals definitions
 : common-default-use s" blocks.fb" open-blocks ;
-defer default-use   ' common-default-use is default-use
+' common-default-use is default-use
 : use?!   block-fid 0< if default-use then ;
 : grow-blocks ( n -- ) 1024 * block-fid file-size throw max block-fid resize-file throw ;
 forth definitions internals

ueforth/common/vocabulary.fs

@@ -10,28 +10,21 @@
 
 ( Hide some words in an internals vocabulary )
 vocabulary internals   internals definitions
-transfer branch
-transfer 0branch
-transfer 'notfound
-transfer notfound
+transfer branch   transfer 0branch   transfer donext   transfer dolit
+transfer 'notfound   transfer notfound
 transfer immediate?
-transfer evaluate1
-transfer 'sys
-transfer 'heap
+transfer input-buffer   transfer ?echo   transfer ?echo-prompt
+transfer evaluate1   transfer evaluate-buffer
+transfer 'sys   transfer 'heap
 transfer aliteral
-transfer leaving(
-transfer )leaving
-transfer leaving
-transfer leaving,
-transfer (do)
-transfer (?do)
-transfer (+loop)
+transfer leaving(   transfer )leaving   transfer leaving   transfer leaving,
+transfer (do)   transfer (?do)   transfer (+loop)
 transfer parse-quote
 transfer digit
 transfer $@
-transfer see.
-transfer see-loop
-transfer >name-length
+transfer see.   transfer see-loop    transfer >name-length   transfer exit=
+transfer see-one
+transfer tib-setup   transfer input-limit
 transfer call0 transfer call1 transfer call2 transfer call3 transfer call4
 transfer call5 transfer call6 transfer call7 transfer call8 transfer call9
 transfer call10