missing file

diff --git a/library/syntax/parse-errors.factor b/library/syntax/parse-errors.factor
new file mode 100644 (file)
index 0000000..7ec2e75
--- /dev/null
+++ 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 ;