gforth/see.fs - diff

Return to see.fs CVS log

Up to [gforth] / gforth

Diff for /gforth/see.fs between versions 1.49 and 1.53

version 1.49, 2003/01/26 20:56:37	version 1.53, 2004/01/13 16:00:55
Line 1	Line 1
\ SEE.FS highend SEE for ANSforth 16may93jaw	\ SEE.FS highend SEE for ANSforth 16may93jaw

\ Copyright (C) 1995,2000 Free Software Foundation, Inc.	\ Copyright (C) 1995,2000,2003 Free Software Foundation, Inc.

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

Line 28	Line 28
require look.fs	require look.fs
require termsize.fs	require termsize.fs
require wordinfo.fs	require wordinfo.fs
[IFUNDEF] .name
: id. ( nt -- ) \ gforth
\G Print the name of the word represented by @var{nt}.
\ this name comes from fig-Forth
name>string type space ;

' id. alias .id ( nt -- )
\G F83 name for @code{id.}.

' id. alias .name ( nt -- )
\G Gforth <=0.5.0 name for @code{id.}.

[THEN]

decimal	decimal

Line 734 Defer discode ( addr u -- ) \ gforth	Line 721 Defer discode ( addr u -- ) \ gforth
>name ?dup-if	>name ?dup-if
." IS " .name cr	." IS " .name cr
else	else
." lastxt >body !"	." latestxt >body !"
then ;	then ;
: see-threaded ( addr -- )	: see-threaded ( addr -- )
C-Pass @ DebugMode = IF	C-Pass @ DebugMode = IF
Line 786 Defer discode ( addr u -- ) \ gforth	Line 773 Defer discode ( addr u -- ) \ gforth
ENDCASE ;	ENDCASE ;

: (xt-see-xt) ( xt -- )	: (xt-see-xt) ( xt -- )
xt-see cr ." lastxt" ;	xt-see cr ." latestxt" ;
' (xt-see-xt) is xt-see-xt	' (xt-see-xt) is xt-see-xt

: (.immediate) ( xt -- )	: (.immediate) ( xt -- )
Line 807 Defer discode ( addr u -- ) \ gforth	Line 794 Defer discode ( addr u -- ) \ gforth
else \ interpret/compile word	else \ interpret/compile word
r@ xt-see-xt cr	r@ xt-see-xt cr
swap xt-see-xt cr	swap xt-see-xt cr
." interpret/compile " over .name (.immediate)	." interpret/compile: " over .name drop
then	then
then	then
rdrop drop ;	rdrop drop ;

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

Removed from v.1.49
changed lines
	Added in v.1.53