version 1.15, 2000/04/27 08:51:33
|
version 1.21, 2003/01/06 11:18:59
|
Line 1
|
Line 1
|
\ various tests, especially for bugs that have been fixed |
\ various tests, especially for bugs that have been fixed |
|
|
\ Copyright (C) 1997,1998 Free Software Foundation, Inc. |
\ Copyright (C) 1997,1998,2000 Free Software Foundation, Inc. |
|
|
\ This file is part of Gforth. |
\ This file is part of Gforth. |
|
|
Line 16
|
Line 16
|
|
|
\ You should have received a copy of the GNU General Public License |
\ You should have received a copy of the GNU General Public License |
\ along with this program; if not, write to the Free Software |
\ along with this program; if not, write to the Free Software |
\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. |
\ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA. |
|
|
\ combination of marker and locals |
\ combination of marker and locals |
marker foo1 |
marker foo1 |
Line 72 throw \ if the TOS is not 0, throw an er
|
Line 72 throw \ if the TOS is not 0, throw an er
|
|
|
\ look for primitives |
\ look for primitives |
|
|
' + look 0= throw ( nt ) |
' + xt>threaded threaded>name dup 0= throw ( nt ) |
s" +" find-name <> throw |
s" +" find-name <> throw |
|
|
\ represent |
\ represent |
Line 167 abort 0 [if]
|
Line 167 abort 0 [if]
|
[then] |
[then] |
( 0 ) throw |
( 0 ) throw |
|
|
|
\ the same test with CRLF newlines |
|
test-restore-input[ abort \ these aborts are skipped
|
|
abort 0 [if]
|
|
s" oops" 2drop ]test-restore-input abort
|
|
[then]
|
|
( 0 ) throw |
|
|
\ comments across several lines |
\ comments across several lines |
|
|
( fjklfjlas;d |
( fjklfjlas;d |