Miroirs/planckforth
1
0
Fork 0
mirror of https://github.com/nineties/planckforth synced 2025-01-27 08:00:04 +01:00
Code Issues Projects Releases Packages Wiki Activity

export spaces

Browse source
This commit is contained in:
Koichi Nakamura 2021-01-11 10:15:04 +09:00
parent d014418bb4
commit 318c57ca56
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
bootstrap.fs
View file

@ -2497,7 +2497,7 @@ need-defined (read)
recurse case of rangeof endof endcase recurse case of rangeof endof endcase
do loop +loop unloop leave i j k do loop +loop unloop leave i j k
char [char] key char [char] key emit spaces
.s . .r u. u.r dec. hex. type .s . .r u. u.r dec. hex. type
." s" bl '\n' cr space base decimal hex ." s" bl '\n' cr space base decimal hex
catch throw success catch throw success
@ -2512,7 +2512,7 @@ need-defined (read)
( \ ( \
c@ c! c, @ ! , c@ c! c, @ ! ,
word find >cfa >dfa word find >cfa >dfa
bye emit execute exit here latest bye execute exit here latest
end-update-dictionary end-update-dictionary
; execute ; execute