gforth/test/other.fs - diff

Return to other.fs CVS log

Up to [gforth] / gforth / test

version 1.6, 1997/10/27 18:25:23	version 1.7, 1998/04/14 16:43:22
Line 60 foo1	Line 60 foo1
addr1 false <> abort" TO does not work on locals" ;	addr1 false <> abort" TO does not work on locals" ;
locals-test2	locals-test2

	: locals-test3 ( -- )
	\ this should compile, but gives "invalid name argument" on gforth-0.3.0
	0 { a b } 0 to a ;

\ multiple reveals (recursive)	\ multiple reveals (recursive)

0	0
Line 101 test-only	Line 105 test-only

\ create-interpret/compile	\ create-interpret/compile

: constant ( n "name" -- )	: my-constant ( n "name" -- )
create-interpret/compile	create-interpret/compile
,	,
interpretation>	interpretation>
Line 111 compilation>	Line 115 compilation>
@ postpone literal	@ postpone literal
<compilation ;	<compilation ;

5 constant five	5 my-constant five
five 5 <> throw	five 5 <> throw
: five' five ;	: five' five ;
five' 5 <> throw	five' 5 <> throw

	\ structs and alignment

	struct
	char% field field1
	float% field field2
	end-struct my-struct%

	0 field2 float% %alignment <> throw

\ comments across several lines	\ comments across several lines

( fjklfjlas;d	( fjklfjlas;d
abort" ( does not work across lines"	abort" ( does not work across lines"
)	)

s" ( testing ( without delimited by newline in non-files" evaluate	s" ( testing ( without being delimited by newline in non-files" evaluate

\ last test!	\ last test!
\ testing '(' without ')' at end-of-file	\ testing '(' without ')' at end-of-file