Path: utzoo!utgpu!news-server.csri.toronto.edu!clyde.concordia.ca!uunet!tut.cis.ohio-state.edu!pt.cs.cmu.edu!dsl.pitt.edu!pitt!willett!ForthNet
From: ForthNet@willett.pgh.pa.us (ForthNet articles from GEnie)
Newsgroups: comp.lang.forth
Subject: FPC forth?????????
Message-ID: <1607.UUL1.3#5129@willett.pgh.pa.us>
Date: 27 Aug 90 03:30:40 GMT
Organization: String, Scotch tape, and Paperclips.  (in Pgh, PA)
Lines: 30

Category 1,  Topic 21
Message 85        Sun Aug 26, 1990
R.BERKEY [Robert]            at 14:54 PDT
 
  Zafar Essak writes, 90-08-14:

 > Furthermore, I noticed by your example that " 078.1" implies that in
 > your system the Forth word " can be used in the interpretative mode,
 > not just when compiling.  Is this true?

Oh, sure.  Here is the source.  Seems to work on F-PC with one change: 
COMPILING? is  STATE @


 : <">          \   ;v string at HERE   ;p state smart string primitive
                \ compiling:      & # --
                \ interpreting:   & # -- & #
                \ runtime:            -- & #
                COMPILING?
                IF      COMPILE (")   HERE X,   TUCK HERE PLACE 1+ ALLOT
                ELSE    PAD PLACE   PAD COUNT
                THEN    ;

 : "            ( string"   \ -- )
                ( runtime:   -- & # )
                '"' PARSE   <"> ;       IMMEDIATE

-----
This message came from GEnie via willett through a semi-automated process.
Report problems to: uunet!willett!dwp or dwp@willett.pgh.pa.us