2005-01-29 14:18:28 -05:00
|
|
|
! Copyright (C) 2004, 2005 Slava Pestov.
|
|
|
|
|
! See http://factor.sf.net/license.txt for BSD license.
|
|
|
|
|
IN: parser USING: kernel errors stdio ;
|
2004-11-13 18:07:18 -05:00
|
|
|
|
|
|
|
|
: eval-catch ( str -- )
|
2004-12-25 21:28:47 -05:00
|
|
|
[ eval ] [ [ print-error debug-help drop ] when* ] catch ;
|
2004-11-13 18:07:18 -05:00
|
|
|
|
|
|
|
|
: eval>string ( in -- out )
|
|
|
|
|
[ eval-catch ] with-string ;
|
