version 1.14, 2009/04/08 19:59:17
|
version 1.15, 2009/09/21 15:17:03
|
Line 172 HAS-FLOATING-STACK [IF]
|
Line 172 HAS-FLOATING-STACK [IF]
|
VARIABLE START-FDEPTH |
VARIABLE START-FDEPTH |
VARIABLE FCURSOR |
VARIABLE FCURSOR |
|
|
|
DECIMAL |
: EMPTY-FSTACK ( ... -- ... ) |
: EMPTY-FSTACK ( ... -- ... ) |
FDEPTH START-FDEPTH @ < IF |
FDEPTH START-FDEPTH @ < IF |
FDEPTH START-FDEPTH @ SWAP DO 0E LOOP |
FDEPTH START-FDEPTH @ SWAP DO 0E LOOP |
Line 179 HAS-FLOATING-STACK [IF]
|
Line 180 HAS-FLOATING-STACK [IF]
|
FDEPTH START-FDEPTH @ > IF |
FDEPTH START-FDEPTH @ > IF |
FDEPTH START-FDEPTH @ DO FDROP LOOP |
FDEPTH START-FDEPTH @ DO FDROP LOOP |
THEN ; |
THEN ; |
|
HEX |
|
|
: F{ ( -- ) |
: F{ ( -- ) |
FDEPTH START-FDEPTH ! 0 FCURSOR ! ; |
FDEPTH START-FDEPTH ! 0 FCURSOR ! ; |
|
|