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

fixed a bug

Browse source
This commit is contained in:
Koichi Nakamura 2021-01-06 01:52:34 +09:00
parent 76a01a127a
commit 878b43dd5c
1 changed files with 23 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
bootstrap.fs
View file

@ -1793,6 +1793,28 @@ do-stack 16 cells + do-sp !
: j 4 rpick ; : j 4 rpick ;
: k 6 rpick ; : k 6 rpick ;
( === Dictionary === )
\ print the name of the word
: id. ( nt -- )
cell+ dup c@ length-mask and
begin dup 0> while
swap 1+ dup c@ emit swap 1-
repeat
2drop
;
\ print all visible words
: words
latest
begin ?dup while
dup cell+ c@ smudge-bit and unless
dup id. space
then
@
repeat
cr
;
( === Command-line Arguments === ) ( === Command-line Arguments === )
@ -1944,7 +1966,7 @@ codegen-target @ s" i386-linux" str= [if]
[else] \ i386-linux [else] \ i386-linux
codegen-target @ s" no-codegen" str= <> [if] codegen-target @ s" no-codegen" str= not [if]
." Unknown codegen target: " codegen-target @ type cr ." Unknown codegen target: " codegen-target @ type cr
abort abort
[then] [then] [then] [then]