 combinators.short-circuit fry grouping hash-sets hashtables io
 io.encodings.utf8 io.files kernel lists mal.env mal.printer
 mal.reader mal.types math namespaces readline sequences sets
-system vectors ;
+strings system vectors ;
 IN: mal.core
 
 SYMBOL: mal-apply

    { "swap!" [ { [ first ] [ second ] [ 2 tail ] [ first val>> ] } cleave
                prefix swap mal-apply get call( args fn -- maltype ) >>val val>> ] }
    { "conj" [ unclip swap over array? [ reverse prepend ] [ append ] if ] }
    { "time-ms" [ drop nano-count 1,000,000 /i ] }
}

    { "false?" [ first f = ] }
    { "symbol" [ first <malsymbol> ] }
    { "symbol?" [ first malsymbol? ] }
    { "string?" [ first string? ] }
    { "keyword" [ first <malkeyword> ] }
    { "keyword?" [ first malkeyword? ] }
    { "vector" [ >vector ] }
