version 1.10, 2007/11/03 09:25:35
|
version 1.11, 2008/03/06 19:24:30
|
Line 192 HAS-FLOATING-STACK [IF]
|
Line 192 HAS-FLOATING-STACK [IF]
|
|
|
: F...}T ( -- ) |
: F...}T ( -- ) |
FCURSOR @ START-FDEPTH @ + ACTUAL-FDEPTH @ <> IF |
FCURSOR @ START-FDEPTH @ + ACTUAL-FDEPTH @ <> IF |
S" NUMBER OF FLOAT RESULTS BEFORE '->' DOES NOT MATCH ...}T SPRECIFICATION: " ERROR |
S" NUMBER OF FLOAT RESULTS BEFORE '->' DOES NOT MATCH ...}T SPECIFICATION: " ERROR |
ELSE FDEPTH START-FDEPTH @ = 0= IF |
ELSE FDEPTH START-FDEPTH @ = 0= IF |
S" NUMBER OF FLOAT RESULTS BEFORE AND AFTER '->' DOES NOT MATCH: " ERROR |
S" NUMBER OF FLOAT RESULTS BEFORE AND AFTER '->' DOES NOT MATCH: " ERROR |
THEN THEN ; |
THEN THEN ; |