1 ! Copyright (C) 2008, 2009 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: splitting parser compiler.units kernel namespaces
4 debugger io.streams.string fry combinators effects.parser ;
7 : parse-string ( str -- quot )
8 [ string-lines parse-lines ] with-compilation-unit ;
10 : (eval) ( str effect -- )
11 [ parse-string ] dip call-effect ; inline
13 : eval ( str effect -- )
14 [ (eval) ] with-file-vocabs ; inline
16 SYNTAX: eval( \ eval parse-call( ;
18 : (eval>string) ( str -- output )
22 '[ _ (( -- )) (eval) ] try
23 ] with-string-writer ;
25 : eval>string ( str -- output )
26 [ (eval>string) ] with-file-vocabs ;