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

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

: eval>string ( in -- out )
    [ eval-catch ] with-string ;