Differences From Artifact [42b05bd400b271cd]:

File user/crc/alexandria.retro part of check-in [2195a639a1] - alexandria; fix errors by charleschilders on 2010-06-13 02:48:03. [annotate] [view]

To Artifact [bcccc53e418dfd9b]:

File user/crc/alexandria.retro part of check-in [71793b0520] - alexandria; use .data instead of literal, by crc on 2010-06-14 17:26:44. [annotate] [view]

@@ -79,15 +79,15 @@
   {{
     : chop (  $-$ ) dup getLength + 1- 0 swap ! ;
     : (%{) ( "- ) char: = accept tib keepString dup chop ;
     ---reveal---
-    : %{   ( "- ) @compiler if ahead (%{) here rot ! literal,
+    : %{   ( "- ) @compiler if ahead (%{) here rot ! .data
                   else (%{) then ; immediate
   }}
 
   : }%   ( t$x- ) rot add-entry ;
   : @"   (  t"- ) @compiler if
-                  ahead " keepString here rot ! literal, else "
+                  ahead " keepString here rot ! .data else "
                   then ` swap ` get-entry ; immediate
 
   : 'type'   ( $- ) char: ' emit type char: ' emit space ;