gforth/smartdots.fs - diff

Return to smartdots.fs CVS log

Up to [gforth] / gforth

version 1.4, 2012/03/13 22:56:39	version 1.5, 2012/03/16 20:34:22
Line 34 Variable smart.s-skip	Line 34 Variable smart.s-skip

: smart.s. ( n -- )	: smart.s. ( n -- )
smart.s-skip @ smart.s-skip off IF drop EXIT THEN	smart.s-skip @ smart.s-skip off IF drop EXIT THEN
over r> i swap >r - pick 2dup string? IF	over r> i swap >r -
	dup 1 = IF false ELSE pick 2dup string? THEN IF
.string. smart.s-skip on	.string. smart.s-skip on
ELSE drop dup addr? IF .addr.	ELSE drop dup addr? IF .addr.
ELSE . THEN	ELSE . THEN