Paste: tuple test

USING:
  kernel 
  io
  syntax
;

IN: test


TUPLE: employee name position salary ;

: <employee> ( -- employee ) employee new 40000 >>salary ;

: main ( -- ) <employee> drop ;

MAIN: main

Annotation: error

$ factor test.factor 
test.factor

13: : <employee> ( -- employee ) employee new 40000 >>salary ;
                                                            ^
No word named “>>salary” found in current vocabulary search path

New Annotation