RosettaCodeData/Task/Function-definition/Forth/function-definition.fth

3 lines
66 B
Forth
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
: fmultiply ( F: a b -- F: c ) F* ;
: multiply ( a b -- c ) * ;