gforth/extend.fs - diff

Return to extend.fs CVS log

Up to [gforth] / gforth

version 1.28, 1997/07/31 16:17:09	version 1.30, 1998/12/08 22:02:41
Line 1	Line 1
\ EXTEND.FS CORE-EXT Word not fully tested! 12may93jaw	\ EXTEND.FS CORE-EXT Word not fully tested! 12may93jaw

\ 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 190 variable span ( -- a-addr ) \ core-ext	Line 190 variable span ( -- a-addr ) \ core-ext
dup 0 wordlist-link - rehash	dup 0 wordlist-link - rehash
REPEAT	REPEAT
drop	drop
@ udp ! dp ! ;	@ udp ! dp !
	\ clean up vocabulary stack
	0 vp @ 0
	?DO
	vp cell+ I cells + @ dup here >
	IF drop ELSE swap 1+ THEN
	LOOP
	dup 0= or set-order \ -1 set-order if order is empty
	get-current here > IF
	forth-wordlist set-current
	THEN ;

: marker ( "mark" -- )	: marker ( "mark" -- )
marker, Create A,	marker, Create A,