1 ! Copyright (C) 2009 Doug Coleman.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: sequences math kernel strings combinators.short-circuit ;
6 : quote? ( ch -- ? ) "'\"" member? ;
12 [ [ first ] [ last ] bi = ]
15 : unquote ( str -- newstr )
16 dup quoted? [ but-last-slice rest-slice >string ] when ;