11 lines
448 B
Factor
11 lines
448 B
Factor
USING: arrays hashtables kernel parser quotations sequences splitting ;
|
|
IN: arrays.nested-syntax
|
|
|
|
: ;; ( -- * ) ";; can only be used in [[ ]] , {{ }} , or H{{ }} blocks" throw ;
|
|
DEFER: ]] delimiter
|
|
DEFER: }} delimiter
|
|
|
|
: [[ \ ]] [ { POSTPONE: ;; } split [ >quotation ] map ] parse-literal ; parsing
|
|
: {{ \ }} [ { POSTPONE: ;; } split [ >array ] map ] parse-literal ; parsing
|
|
: H{{ \ }} [ { POSTPONE: ;; } split >hashtable ] parse-literal ; parsing
|