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

Add >body

Browse source
This commit is contained in:
Koichi Nakamura 2021-01-11 10:14:33 +09:00
parent 4d9876da62
commit 3411fec40d
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
bootstrap.fs
View file

@ -566,6 +566,7 @@ allot-cell : &find! [ ' L , , ] ; \ ( c-addr -- nt ) Throw exception at error
: 2 [ key 2 key 0 - ] literal ; : 2 [ key 2 key 0 - ] literal ;
: 3 [ key 3 key 0 - ] literal ; : 3 [ key 3 key 0 - ] literal ;
: 4 [ key 4 key 0 - ] literal ; : 4 [ key 4 key 0 - ] literal ;
: 5 [ key 5 key 0 - ] literal ;
: 10 [ key : key 0 - ] literal ; : 10 [ key : key 0 - ] literal ;
: 16 [ key @ key 0 - ] literal ; : 16 [ key @ key 0 - ] literal ;
: -1 [ key 0 key 1 - ] literal ; : -1 [ key 0 key 1 - ] literal ;
@ -879,6 +880,10 @@ allot-cell : &find! [ ' L , , ] ; \ ( c-addr -- nt ) Throw exception at error
['] exit , \ compile exit ['] exit , \ compile exit
; ;
: >body ( xt -- a-addr )
5 cells +
;
: (does>) : (does>)
latest >cfa latest >cfa
3 cells + ! \ replace nop 3 cells + ! \ replace nop
@ -2488,7 +2493,7 @@ need-defined (read)
.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
: ; [ ] immediate create :noname does> variable constant : ; [ ] immediate create >body :noname does> variable constant
' ['] compile [compile] literal state ' ['] compile [compile] literal state
+ - * /mod / mod negate not and or xor invert within max min abs + - * /mod / mod negate not and or xor invert within max min abs
< > <= >= = <> 0< 0> 0<= 0>= 0= 0<> 1+ 1- < > <= >= = <> 0< 0> 0<= 0>= 0= 0<> 1+ 1-