2008-12-12 02:00:23 -05:00
|
|
|
! (c) Joe Groff, see license for details
|
2009-01-26 18:47:52 -05:00
|
|
|
USING: continuations kernel parser words quotations vectors ;
|
2008-12-09 02:13:26 -05:00
|
|
|
IN: literals
|
|
|
|
|
2009-01-26 18:47:52 -05:00
|
|
|
: $ scan-word [ execute ] curry with-datastack >vector ; parsing
|
|
|
|
: $[ \ ] parse-until >quotation with-datastack >vector ; parsing
|