gforth/kernel/getdoers.fs - diff

Return to getdoers.fs CVS log

Up to [gforth] / gforth / kernel

version 1.5, 2000/09/23 15:47:10	version 1.10, 2005/06/28 06:45:08
Line 1	Line 1
\	\

\ Copyright (C) 1996, 1998,1999 Free Software Foundation, Inc.	\ Copyright (C) 1996, 1998,1999,2003 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

Line 46 doer? :douser [IF]	Line 46 doer? :douser [IF]
doer? :dodefer [IF]	doer? :dodefer [IF]
: dodefer: ( -- addr ) \ gforth	: dodefer: ( -- addr ) \ gforth
\G The code address of a @code{defer}ed word.	\G The code address of a @code{defer}ed word.
['] source >code-address ;	['] parser1 >code-address ;
[THEN]	[THEN]

doer? :dofield [IF]	doer? :dofield [IF]
Line 55 doer? :dofield [IF]	Line 55 doer? :dofield [IF]
['] reveal-method >code-address ;	['] reveal-method >code-address ;
[THEN]	[THEN]

has? prims 0= [IF]	true [IF] \ !! don't know what to put here
: dodoes: ( -- addr ) \ gforth	: dodoes: ( -- addr ) \ gforth
\G The code address of a @code{field}???	\G The code address of a @code{field}???
['] spaces >code-address ;	['] DOES> >code-address ;
[THEN]	[THEN]