From 7d4c8a053df5393155dff9784bd9365d968e735f Mon Sep 17 00:00:00 2001
From: Kathy Gray <kathryn.gray@cl.cam.ac.uk>
Date: Tue, 6 Mar 2007 13:56:54 +0000
Subject: [PATCH] Modified sig file, adding err^

svn: r5739
---
 collects/combinator-parser/combinator-unit.ss                 | 2 +-
 .../private-combinator/combinator-parser.scm                  | 2 +-
 collects/combinator-parser/private-combinator/parser-sigs.ss  | 4 ++--
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/collects/combinator-parser/combinator-unit.ss b/collects/combinator-parser/combinator-unit.ss
index d814967760..df54fd7d5a 100644
--- a/collects/combinator-parser/combinator-unit.ss
+++ b/collects/combinator-parser/combinator-unit.ss
@@ -4,7 +4,7 @@
            "private-combinator/parser-sigs.ss")
   
   (provide combinator-parser-tools@
-           combinator-parser^
+           combinator-parser^ err^
            error-format-parameters^ language-format-parameters^ language-dictionary^
            terminals)
   
diff --git a/collects/combinator-parser/private-combinator/combinator-parser.scm b/collects/combinator-parser/private-combinator/combinator-parser.scm
index a1efc03bba..40f3426f2d 100644
--- a/collects/combinator-parser/private-combinator/combinator-parser.scm
+++ b/collects/combinator-parser/private-combinator/combinator-parser.scm
@@ -85,7 +85,7 @@
   
   (define-unit/new-import-export combinator-parser-tools@
     (import error-format-parameters^ language-format-parameters^ language-dictionary^)
-    (export combinator-parser^)
+    (export combinator-parser^ err^)
     ((combinator-parser-forms^ parser^ out^) combinator-parser@ error-format-parameters^ language-format-parameters^
                             language-dictionary^))
            
diff --git a/collects/combinator-parser/private-combinator/parser-sigs.ss b/collects/combinator-parser/private-combinator/parser-sigs.ss
index e8e7e33178..532168a41b 100644
--- a/collects/combinator-parser/private-combinator/parser-sigs.ss
+++ b/collects/combinator-parser/private-combinator/parser-sigs.ss
@@ -186,8 +186,8 @@
  
   (define-signature error^ (fail-type->message))
   
-  (define-signature combinator-parser^ extends combinator-parser-forms^ 
-    (parser (struct err (msg src))))
+  (define-signature combinator-parser^ extends combinator-parser-forms^ (parser))
+  (define-signature err^ (err? err-msg err-src))
     
   )
      
\ No newline at end of file