gistfile1.txt

: append ( $$-$ )
  swap
  here push
  here over getLength dup allot copy
  here over getLength dup allot copy
  0 , pop ;

: paren-wrap s" (" swap append s" )" append ;

non-parsing create

: keephere  ( $- )
  here over getLength
  dup allot
  copy 0 , ;

: :create ( $- )
    here last dup @ , ! ( Make entry and link it to previous. )
    ['] .data ,         ( Put .data in the class field.       )
    here push 0 ,       ( Put 0 in the XT field.              )
      keephere          ( Copy the name to the name field.    )
    here pop ! ;        ( Replace the XT with pointer to HERE.)
  
: t s" test" :create ;
t words