Paste: define

Author: mrjbq7
Mode: factor
Date: Tue, 29 Mar 2011 16:05:56
Plain Text | 
( scratchpad ) IN: foo

( foo ) [
             "add2" "foo" create [ 2 + ] (( n -- n )) define-declared
        ] with-compilation-unit

( foo ) 3 add2 .
5

New Annotation

Summary:
Author:
Mode:
Body: