version 1.4, 1998/07/08 19:55:03
|
version 1.6, 1998/12/23 23:59:21
|
Line 1
|
Line 1
|
\ OTHER.FS Ansforth extentions for CROSS 9may93jaw |
\ OTHER.FS Ansforth extentions for CROSS 9may93jaw |
|
|
\ Copyright (C) 1995 Free Software Foundation, Inc. |
\ Copyright (C) 1995,1998 Free Software Foundation, Inc. |
|
|
\ This file is part of Gforth. |
\ This file is part of Gforth. |
|
|
Line 23
|
Line 23
|
\ the cross compiler should run |
\ the cross compiler should run |
\ with any ansforth environment |
\ with any ansforth environment |
|
|
: ?EXIT s" IF EXIT THEN" evaluate ; immediate |
: ?EXIT POSTPONE if POSTPONE exit POSTPONE then ; immediate |
: bounds over + swap ; |
: bounds over + swap ; |
: name bl word ; |
: name bl word ; |
: on true swap ! ; |
: on true swap ! ; |