(parse-factor-quotation) ( object -- ast )

Vocabulary
fjsc

Definition

IN: fjsc

GENERIC: (parse-factor-quotation) ( object -- ast )

Methods

USING: arrays fjsc kernel make sequences ;

M: array (parse-factor-quotation)
    [ [ (parse-factor-quotation) , ] each ] { } make
    ast-array boa ;

USING: assocs fjsc hashtables kernel make sequences ;

M: hashtable (parse-factor-quotation)
    >alist [ [ (parse-factor-quotation) , ] each ] { } make
    ast-hashtable boa ;

USING: fjsc kernel math ;

M: number (parse-factor-quotation) ast-number boa ;

USING: fjsc kernel make quotations sequences ;

M: quotation (parse-factor-quotation)
    [ [ (parse-factor-quotation) , ] each ] { } make
    ast-quotation boa ;

USING: fjsc kernel strings ;

M: string (parse-factor-quotation) ast-string boa ;

USING: accessors fjsc kernel strings words.symbol ;

M: symbol (parse-factor-quotation)
    dup >string swap vocabulary>> ast-identifier boa ;

USING: accessors fjsc kernel words ;

M: word (parse-factor-quotation)
    dup name>> swap vocabulary>> ast-identifier boa ;

USING: accessors fjsc kernel ;

M: wrapper (parse-factor-quotation)
    wrapped>> dup name>> swap vocabulary>> ast-word boa ;