Re: Implementing ." in forth

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> (permalink)
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

Show key headers only | View raw

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

Back to comp.lang.forth | Previous | Next — Previous in thread | Find similar | Unroll thread

Thread

Implementing ." in forth Arnold Doray <invalid@invalid.com> - 2012-08-23 14:12 +0000
  Re: Implementing ." in forth anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2012-08-23 14:45 +0000
    Re: Implementing ." in forth Arnold Doray <invalid@invalid.com> - 2012-08-24 11:30 +0000
      Re: Implementing ." in forth Josh Grams <josh@qualdan.com> - 2012-08-24 12:56 +0000
      Re: Implementing ." in forth anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2012-08-24 14:41 +0000
        Re: Implementing ." in forth anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2012-08-24 16:45 +0000
        Re: Implementing ." in forth Arnold Doray <invalid@invalid.com> - 2012-08-25 03:41 +0000
          Re: Implementing ." in forth anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2012-08-25 09:05 +0000
            Re: Implementing ." in forth Arnold Doray <invalid@invalid.com> - 2012-08-29 15:48 +0000
              Re: Implementing ." in forth Coos Haak <chforth@hccnet.nl> - 2012-08-29 21:19 +0200
              Re: Implementing ." in forth anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2012-08-30 13:00 +0000
  Re: Implementing ." in forth Andrew Haley <andrew29@littlepinkcloud.invalid> - 2012-08-23 12:00 -0500
  Re: Implementing ." in forth Spam@ControlQ.com - 2012-08-23 14:16 -0400
  Re: Implementing ." in forth Mark Wills <markrobertwills@yahoo.co.uk> - 2012-08-23 14:37 -0700
  Re: Implementing ." in forth "Rod Pemberton" <do_not_have@notemailnot.cmm> - 2012-08-23 19:37 -0400
  Re: Implementing ." in forth hughaguilar96@yahoo.com - 2012-08-24 00:06 -0700
    Re: Implementing ." in forth Arnold Doray <invalid@invalid.com> - 2012-08-24 11:32 +0000
      Re: Implementing ." in forth Doug Hoffman <glidedog@gmail.com> - 2012-08-24 08:33 -0400
  Re: Implementing ." in forth jim@rainbarrel.com - 2012-08-24 09:15 -0700
  Re: Implementing ." in forth Chris Hinsley <chris.hinsley@gmail.com> - 2012-08-25 15:15 +0100

csiph-web