From: ruvim.pinka@gmail.com   
      
   Do you know a Forth system in which the following definition for "const"   
   is compiled but does not work as expected?   
      
      
   : const ( x "name" -- )   
      depth >r          ( x )                   ( R: n.depth )   
      :                 ( x colon-sys )         ( R: n.depth )   
      depth r> -        ( x colon-sys n.size )  ( R: )   
      n>r               ( x )                   ( R: i*x n.size )   
      postpone literal  (   )                   ( R: i*x n.size )   
      nr>               ( colon-sys n.size )    ( R: )   
      drop              ( colon-sys )   
      postpone ;        (   )   
      
      
      
   t{ 123 const foo -> }t   
   t{ foo -> 3 }t   
      
      
   Note 3.1.5.1 System-compilation types   
      
      
      
   --   
   Ruvim   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)