Annotation of gforth/other-tests.fs, revision 1.3
1.1 anton 1: \ various tests, especially for bugs that have been fixed
2:
3: \ combination of marker and locals
4: marker foo1
5: marker foo2
6: foo2
7:
8: : bar { xxx yyy } ;
9:
10: foo1
11:
1.3 ! anton 12: \ locals in an if structure
! 13: : locals-test1
! 14: lp@ swap
! 15: if
! 16: { a } a
! 17: else
! 18: endif
! 19: lp@ <> abort" locals in if error 1" ;
! 20:
! 21: 0 locals-test1
! 22: 1 locals-test1
! 23:
1.1 anton 24: \ comments across several lines
25:
26: ( fjklfjlas;d
27: abort" ( does not work across lines"
1.2 anton 28: )
29:
30: s" ( testing ( without delimited by newline in non-files" evaluate
31:
32: \ last test!
33: \ testing '(' without ')' at end-of-file
34: ." expect ``warning: ')' missing''" cr
35: (
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>