Author: | tane |
---|---|
Mode: | factor |
Date: | Sat, 2 Aug 2014 14:21:10 |
USING: kernel io syntax ; IN: test TUPLE: employee name position salary ; : <employee> ( -- employee ) employee new 40000 >>salary ; : main ( -- ) <employee> drop ; MAIN: main
Author: | tane |
---|---|
Mode: | factor |
Date: | Sat, 2 Aug 2014 14:22:18 |
$ factor test.factor test.factor 13: : <employee> ( -- employee ) employee new 40000 >>salary ; ^ No word named “>>salary” found in current vocabulary search path