gforth/smartdots.fs - diff

Return to smartdots.fs CVS log

Up to [gforth] / gforth

version 1.2, 2012/03/09 12:59:54	version 1.4, 2012/03/13 22:56:39
Line 1	Line 1
\ smart .s 09mar2012py	\ smart .s 09mar2012py

\ Copyright (C) 1995,1998,1999,2001,2003,2006,2007,2011 Free Software Foundation, Inc.	\ Copyright (C) 2012 Free Software Foundation, Inc.

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

Line 27	Line 27
IFERROR 2drop drop false nothrow ELSE true THEN ENDTRY ;	IFERROR 2drop drop false nothrow ELSE true THEN ENDTRY ;

: .string. ( addr u -- )	: .string. ( addr u -- )
'"' emit type '"' emit space ;	.\" s\" " type '"' emit space ;
: .addr. ( addr -- ) hex. ;	: .addr. ( addr -- ) hex. ;

Variable smart.s-skip	Variable smart.s-skip