[gforth] / gforth / kernel / toolsext.fs  

gforth: gforth/kernel/toolsext.fs

Diff for /gforth/kernel/toolsext.fs between version 1.22 and 1.27

version 1.22, Mon Dec 31 18:40:26 2007 UTC version 1.27, Thu Mar 18 14:45:54 2010 UTC
Line 1 
Line 1 
 \ Copyright (C) 1995,1998,2000,2003,2005 Free Software Foundation, Inc.  \ Copyright (C) 1995,1998,2000,2003,2005,2007,2009 Free Software Foundation, Inc.
   
 \ This file is part of Gforth.  \ This file is part of Gforth.
   
Line 38 
Line 38 
 : [THEN]  : [THEN]
   -1 countif +! ?if ;       immediate    -1 countif +! ?if ;       immediate
 : [ELSE]  : [ELSE]
   postpone [THEN] postpone [IF] ;    postpone [THEN] postpone [IF] ; immediate
                                      immediate  
 ' [IF]   Alias [IFDEF]               immediate  ' [IF]   Alias [IFDEF]               immediate
 ' [IF]   Alias [IFUNDEF]             immediate  ' [IF]   Alias [IFUNDEF]             immediate
 ' [THEN] Alias [ENDIF]               immediate  ' [THEN] Alias [ENDIF]               immediate
Line 66 
Line 66 
   
 \ Interpretative Structuren                            30apr92py  \ Interpretative Structuren                            30apr92py
   
 : [defined] ( "<spaces>name" -- flag )   bl word find nip 0<> ; immediate  : [defined] ( "<spaces>name" -- flag )   parse-name find-name 0<> ; immediate
   \G returns true if name is found in current search order    \G returns true if name is found in current search order
 ' [defined] alias defined immediate  ' [defined] alias defined immediate
 : [undefined] ( "<spaces>name" -- flag ) postpone [defined] 0= ; immediate  : [undefined] ( "<spaces>name" -- flag ) postpone [defined] 0= ; immediate

Generate output suitable for use with a patch program
Legend:
Removed from v.1.22  
changed lines
  Added in v.1.27
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help