gforth/extend.fs - diff

Return to extend.fs CVS log

Up to [gforth] / gforth

version 1.66, 2010/05/29 16:31:28	version 1.68, 2011/08/10 13:55:02
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,1998,2000,2003,2005,2007,2009 Free Software Foundation, Inc.	\ Copyright (C) 1995,1998,2000,2003,2005,2007,2009,2010 Free Software Foundation, Inc.

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

Line 63 decimal	Line 63 decimal
0 CONSTANT case ( compilation -- case-sys ; run-time -- ) \ core-ext	0 CONSTANT case ( compilation -- case-sys ; run-time -- ) \ core-ext
immediate	immediate

	: ?of ( compilation -- of-sys ; run-time f -- ) \ gforth
	1+ >r POSTPONE if r> ; immediate

: of ( compilation -- of-sys ; run-time x1 x2 -- \|x1 ) \ core-ext	: of ( compilation -- of-sys ; run-time x1 x2 -- \|x1 ) \ core-ext
\ !! the implementation does not match the stack effect	\ !! the implementation does not match the stack effect
1+ >r	postpone over postpone = postpone ?of postpone drop ; immediate
postpone over postpone = postpone if postpone drop
r> ; immediate

: endof ( compilation case-sys1 of-sys -- case-sys2 ; run-time -- ) \ core-ext end-of	: endof ( compilation case-sys1 of-sys -- case-sys2 ; run-time -- ) \ core-ext end-of
>r postpone else r> ; immediate	>r postpone else r> ; immediate