Miroirs/planckforth
1
0
Fork 0
mirror of https://github.com/nineties/planckforth synced 2024-12-26 21:58:42 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

minor fix

Browse source
This commit is contained in:
Koichi Nakamura 2022-01-09 17:33:58 +09:00
parent 47e75ab015
commit 005b1fad79
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
bootstrap.fs
View file

@ -616,7 +616,8 @@ allot-cell : &find! [ ' L , , ] ; \ ( c-addr -- nt ) Throw exception at error
: nip swap drop ; \ ( a b -- b ) : nip swap drop ; \ ( a b -- b )
: over >r dup r> swap ; \ ( a b -- a b a ) : over >r dup r> swap ; \ ( a b -- a b a )
: tuck dup -rot ; \ ( a b -- b a b ) : tuck dup -rot ; \ ( a b -- b a b )
: pick cells sp@ + cell + @ ; \ ( wu ... x0 u -- xu ... x0 xu ) : pick cells sp@ + cell + @ ; \ ( xu ... x0 u -- xu ... x0 xu )
: 2drop drop drop ; \ ( a b -- ) : 2drop drop drop ; \ ( a b -- )
: 3drop 2drop drop ; \ ( a b c -- ) : 3drop 2drop drop ; \ ( a b c -- )