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: