gforth/extend.fs - diff

Return to extend.fs CVS log

Up to [gforth] / gforth

Diff for /gforth/extend.fs between versions 1.47 and 1.51

version 1.47, 2002/12/04 10:42:58	version 1.51, 2003/01/19 23:35:29
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 Free Software Foundation, Inc.	\ Copyright (C) 1995-2003 Free Software Foundation, Inc.

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

Line 25 decimal	Line 25 decimal

\ .( 12may93jaw	\ .( 12may93jaw

: .( ( compilation,interpretation "ccc<paren>" -- ) \ core-ext dot-paren	: .( ( compilation&interpretation "ccc<paren>" -- ) \ core-ext dot-paren
\G Compilation and interpretation semantics: Parse a string @i{ccc}	\G Compilation and interpretation semantics: Parse a string @i{ccc}
\G delimited by a @code{)} (right parenthesis). Display the	\G delimited by a @code{)} (right parenthesis). Display the
\G string. This is often used to display progress information during	\G string. This is often used to display progress information during
Line 236 variable span ( -- c-addr ) \ core-ext	Line 236 variable span ( -- c-addr ) \ core-ext
REPEAT	REPEAT
drop	drop
\ remember udp	\ remember udp
udp @ , ;	udp @ ,
	\ remember dyncode-ptr
	here ['] noop , compile-prim1 finish-code ;

: marker! ( mark -- )	: marker! ( mark -- )
\ reset included files count; resize will happen on next add-included-file	\ reset included files count; resize will happen on next add-included-file
Line 263 variable span ( -- c-addr ) \ core-ext	Line 265 variable span ( -- c-addr ) \ core-ext
REPEAT	REPEAT
drop	drop
\ restore udp and dp	\ restore udp and dp
	[IFDEF] forget-dyncode
	dup cell+ @ forget-dyncode 0= abort" gforth bug"
	[THEN]
@ udp ! dp !	@ udp ! dp !
\ clean up vocabulary stack	\ clean up vocabulary stack
0 vp @ 0	0 vp @ 0

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.47
changed lines
	Added in v.1.51