missing file

2005-06-24 03:32:14 +00:00 · 2005-06-24 03:32:14 +00:00 · f2acfb3571
parent 8e178303ff
commit f2acfb3571
1 changed files with 12 additions and 0 deletions
--- a/library/syntax/parse-errors.factor
+++ b/library/syntax/parse-errors.factor
@ -0,0 +1,12 @@
+! 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 ;
+
+: with-parser ( quot -- ) [ [ parse-error ] when* ] catch ;