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>