mirror of
https://github.com/nineties/planckforth
synced 2025-01-13 08:01:10 +01:00
skip test of buffer
This commit is contained in:
parent
f61ee0bab0
commit
3bc61795fb
1 changed files with 5 additions and 5 deletions
|
@ -316,12 +316,12 @@ T{ -1 2 1 QD6 -> 2 3 4 5 6 7 6 }T
|
|||
T{ 2 -1 1 QD6 -> -1 0 1 3 }T
|
||||
|
||||
\ -----------------------------------------------------------------------------
|
||||
testing BUFFER:
|
||||
testing buffer:
|
||||
|
||||
T{ 8 BUFFER: BUF:TEST -> }T
|
||||
T{ BUF:TEST dup ALIGNED = -> true }T
|
||||
T{ 111 BUF:TEST ! 222 BUF:TEST CELL+ ! -> }T
|
||||
T{ BUF:TEST @ BUF:TEST CELL+ @ -> 111 222 }T
|
||||
skip T{ 8 buffer: BUF:TEST -> }T
|
||||
skip T{ BUF:TEST dup ALIGNED = -> true }T
|
||||
skip T{ 111 BUF:TEST ! 222 BUF:TEST CELL+ ! -> }T
|
||||
skip T{ BUF:TEST @ BUF:TEST CELL+ @ -> 111 222 }T
|
||||
|
||||
\ -----------------------------------------------------------------------------
|
||||
testing VALUE TO
|
||||
|
|
Loading…
Reference in a new issue