gforth/test/ttester.fs - diff

Return to ttester.fs CVS log

Up to [gforth] / gforth / test

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 ;