1 ! Copyright (C) 2007, 2010 Slava Pestov, Eduardo Cavazos.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: accessors combinators kernel sequences words
7 TUPLE: lambda vars body ;
19 : unquote ( quote -- local ) dup quote? [ local>> ] when ; inline
25 TUPLE: multi-def locals ;
27 C: <multi-def> multi-def
29 PREDICATE: local < word "local?" word-prop ;
31 : <local> ( name -- word )
32 ! Create a local variable identifier
34 dup t "local?" set-word-prop ;
38 PREDICATE: local-reader < word "local-reader?" word-prop ;
40 : <local-reader> ( name -- word )
42 dup t "local-reader?" set-word-prop ;
44 M: local-reader literalize ;
46 PREDICATE: local-writer < word "local-writer?" word-prop ;
48 : <local-writer> ( reader -- word )
49 dup name>> "!" append <uninterned-word> {
50 [ nip t "local-writer?" set-word-prop ]
51 [ swap "local-reader" set-word-prop ]
52 [ "local-writer" set-word-prop ]
56 UNION: lexical local local-reader local-writer ;
57 UNION: special lexical quote def ;