Path: csiph.com!usenet.pasdenom.info!weretis.net!feeder4.news.weretis.net!border2.nntp.ams2.giganews.com!border4.nntp.ams.giganews.com!border2.nntp.ams.giganews.com!border3.nntp.ams.giganews.com!Xl.tags.giganews.com!border1.nntp.ams.giganews.com!nntp.giganews.com!local2.nntp.ams.giganews.com!news.giganews.com.POSTED!not-for-mail
NNTP-Posting-Date: Sat, 25 Aug 2012 09:15:29 -0500
From: Chris Hinsley <chris.hinsley@gmail.com>
Newsgroups: comp.lang.forth
Date: Sat, 25 Aug 2012 15:15:29 +0100
Message-ID: <2012082515152936638-chrishinsley@gmailcom>
References: <k15dp4$kag$1@dont-email.me>
MIME-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1; format=flowed
Content-Transfer-Encoding: 8bit
Subject: Re: Implementing ." in forth
User-Agent: Unison/2.1.9
Lines: 15
X-Usenet-Provider: http://www.giganews.com
X-Trace: sv3-udeC39LnyaL9uPgoM34r3vD+O1jU/HDVbuufCx7moseVpVQYfMWFeZij9CYNPOgkmsgafDB8rl3StAd!nFhXSjU4w3dplLbMGPLX4qgkxlGvXScbEGz3cb4tjFhP3TG/CWyMVcMzMGUtARQS3+dhetY=
X-Complaints-To: abuse@giganews.com
X-DMCA-Notifications: http://www.giganews.com/info/dmca.html
X-Abuse-and-DMCA-Info: Please be sure to forward a copy of ALL headers
X-Abuse-and-DMCA-Info: Otherwise we will be unable to process your complaint properly
X-Postfilter: 1.3.40
X-Original-Bytes: 1321
Xref: csiph.com comp.lang.forth:15153

I know I'm going to get in trouble for this, but I have:

: ."		\ ( -- )
	STATE @ IF					\ compiling?
		POSTPONE S"			\ read the string, and compile SLITS, etc.
		POSTPONE TYPE	\ compile the final TYPE
	ELSE
		'"' PARSE TYPE
	THEN
; IMMEDIATE

Corrections gratefully received !

Chris