15 lines
391 B
Factor
15 lines
391 B
Factor
! Copyright (C) 2009, 2010 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: parser kernel namespaces assocs words.symbol ;
|
|
IN: bootstrap.image.syntax
|
|
|
|
SYMBOL: special-objects
|
|
|
|
SYNTAX: RESET H{ } clone special-objects set-global ;
|
|
|
|
SYNTAX: SPECIAL-OBJECT:
|
|
scan-new-word scan-number
|
|
[ swap special-objects get set-at ]
|
|
[ drop define-symbol ]
|
|
2bi ;
|