2005-06-23 23:32:14 -04:00
|
|
|
! Copyright (C) 2005 Slava Pestov.
|
|
|
|
|
! See http://factor.sf.net/license.txt for BSD license.
|
|
|
|
|
IN: parser
|
|
|
|
|
USING: errors generic kernel namespaces io ;
|
|
|
|
|
|
|
|
|
|
TUPLE: parse-error file line col text ;
|
|
|
|
|
|
|
|
|
|
: parse-error ( msg -- )
|
|
|
|
|
file get line-number get "col" get "line" get
|
|
|
|
|
<parse-error> [ set-delegate ] keep throw ;
|
|
|
|
|
|
2005-09-21 01:12:16 -04:00
|
|
|
: with-parser ( quot -- ) [ parse-error ] recover ;
|
