Paste: lorem ipsum demo
Author: | brweber2 |
Mode: | factor |
Date: | Fri, 9 Oct 2009 02:50:57 |
Plain Text |
USING: vocabs.parser lexer words effects locals io kernel compiler.units ;
IN: demo
: sit "hello world!" print ;
: cupidatat "quit complaining about how hard this is to understand..." print ;
: found "demo" lookup f = not ;
:: define-word [ word "demo" create [ ] \ sit stack-effect define-declared ] with-compilation-unit ;
:: exec-or-define word found [ word "demo" lookup execute ] [ word define-word ] if ;
: done? scan dup f = ;
: recurse done? [ drop ] [ exec-or-define recurse ] if ;
SYNTAX: Lorem recurse ;
New Annotation