Paste: tuple test

Author: tane
Mode: factor
Date: Sat, 2 Aug 2014 14:21:10
Plain Text |
USING:
  kernel 
  io
  syntax
;

IN: test


TUPLE: employee name position salary ;

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

: main ( -- ) <employee> drop ;

MAIN: main

Annotation: error

Author: tane
Mode: factor
Date: Sat, 2 Aug 2014 14:22:18
Plain Text |
$ factor test.factor 
test.factor

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

New Annotation

Summary:
Author:
Mode:
Body: