In DEFINE-KEYPARSER-STATEMENT-LEADER, compile the regular expression

if it is *not* a compiled regular expression, not if it is.

diff --git a/v7/src/edwin/keyparse.scm b/v7/src/edwin/keyparse.scm
index 1754d6f8a5ec96290052e6727384b67bf2ac057f..af641d707f980590ab41d6f067e13303577b0249 100644 (file)
--- a/v7/src/edwin/keyparse.scm
+++ b/v7/src/edwin/keyparse.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: keyparse.scm,v 1.8 2007/01/05 21:19:23 cph Exp $
+$Id: keyparse.scm,v 1.9 2007/01/18 00:19:24 riastradh Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -78,8 +78,8 @@ USA.
   (let ((leaders (description/statement-leaders description))
        (regexp
         (if (compiled-regexp? regexp)
-            (re-compile-pattern regexp #f)
-            regexp)))
+            regexp
+            (re-compile-pattern regexp #f))))
     (let ((entry (assoc name leaders)))
       (if entry
          (set-cdr! entry (list regexp parser))