2010-02-27 06:01:14 -05:00
|
|
|
! Copyright (C) 2010 Doug Coleman.
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
|
|
USING: combinators combinators.smart fry lexer quotations
|
|
|
|
sequences slots ;
|
|
|
|
IN: slots.syntax
|
|
|
|
|
2010-03-02 05:51:52 -05:00
|
|
|
SYNTAX: slots[
|
|
|
|
"]" [ reader-word 1quotation ] map-tokens
|
|
|
|
'[ _ cleave ] append! ;
|
|
|
|
|
2010-02-27 06:01:14 -05:00
|
|
|
SYNTAX: slots{
|
2010-03-01 01:06:47 -05:00
|
|
|
"}" [ reader-word 1quotation ] map-tokens
|
|
|
|
'[ [ _ cleave ] output>array ] append! ;
|