factor/library/eval-catch.factor

! Copyright (C) 2004, 2005 Slava Pestov.
! See http://factor.sf.net/license.txt for BSD license.
IN: parser USING: kernel errors io ;

: eval-catch ( str -- )
    [ eval ] [ [ print-error debug-help drop ] when* ] catch ;

: eval>string ( in -- out )
    [ eval-catch ] string-out ;
USING: parsing word more compact than multiple USE: 2005-01-29 14:18:28 -05:00			`! Copyright (C) 2004, 2005 Slava Pestov.`
			`! See http://factor.sf.net/license.txt for BSD license.`
merged streams, stdio and files into io vocabulary 2005-06-19 17:50:35 -04:00			`IN: parser USING: kernel errors io ;`
overhauling plugin 2004-11-13 18:07:18 -05:00
			`: eval-catch ( str -- )`
better error reporting 2004-12-25 21:28:47 -05:00			`[ eval ] [ [ print-error debug-help drop ] when* ] catch ;`
overhauling plugin 2004-11-13 18:07:18 -05:00
			`: eval>string ( in -- out )`
with-string is now string-out, string-in combinator, documentation updates 2005-06-19 18:53:58 -04:00			`[ eval-catch ] string-out ;`