Diff for /gforth/quotedstring.fs between versions 1.1 and 1.3

version 1.1, 2012/06/23 23:20:23 version 1.3, 2012/06/24 22:02:03
Line 29 Line 29
 ' string-recognizer  ' string-recognizer
 forth-recognizer get-recognizers  forth-recognizer get-recognizers
 1+ forth-recognizer set-recognizers  1+ forth-recognizer set-recognizers
   
   0 [IF] \ dot-quoted strings, we don't need them
   : slit.  slit, postpone type ;
   
   ' type ' slit. ' slit, recognizer: r:."
   
   : ."-recognizer  ( addr u -- addr u' r:." | addr u r:fail )
       2dup ".\"" string-prefix?
       IF    drop source drop - 2 + >in !  \"-parse save-mem r:."
       ELSE  r:fail  THEN ;
   
   ' ."-recognizer
   forth-recognizer get-recognizers
   1+ forth-recognizer set-recognizers
   [THEN]
   

Removed from v.1.1  
changed lines
  Added in v.1.3


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>