factor/extra/literals/literals.factor

7 lines
260 B
Factor
Raw Normal View History

2008-12-12 02:00:23 -05:00
! (c) Joe Groff, see license for details
USING: accessors continuations kernel parser words quotations vectors ;
IN: literals
: $ scan-word [ def>> call ] curry with-datastack >vector ; parsing
: $[ \ ] parse-until >quotation with-datastack >vector ; parsing