gforth/see-ext.fs - diff

Return to see-ext.fs CVS log

Up to [gforth] / gforth

version 1.12, 2007/12/31 19:02:24	version 1.14, 2012/12/31 15:25:18
Line 1	Line 1
\ see-ext.fs extentions for see locals, floats	\ see-ext.fs extentions for see locals, floats

\ Copyright (C) 1995,1996,1997,2003,2007 Free Software Foundation, Inc.	\ Copyright (C) 1995,1996,1997,2003,2007,2012 Free Software Foundation, Inc.

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

Line 26	Line 26
: c-@local#	: c-@local#
Display? IF	Display? IF
S" @local" 0 .string	S" @local" 0 .string
dup @ dup 1 cells / abs 0 <# #S rot sign #> 0 .string bl cemit	dup @ dup cell/ abs 0 <# #S rot sign #> 0 .string bl cemit
THEN	THEN
cell+ ;	cell+ ;

Line 45	Line 45
: c-f@local#	: c-f@local#
Display? IF	Display? IF
S" f@local" 0 .string	S" f@local" 0 .string
dup @ dup 1 floats / abs 0 <# #S rot sign #> 0 .string bl cemit	dup @ dup float/ abs 0 <# #S rot sign #> 0 .string bl cemit
THEN	THEN
cell+ ;	cell+ ;