[climacs-cvs] CVS update: climacs/lisp-syntax.lisp

[Dave Murray]

Update of /project/climacs/cvsroot/climacs
In directory common-lisp.net:/tmp/cvs-serv26118

Modified Files:
	lisp-syntax.lisp 
Log Message:
Fixed small bug in reparsing algorithm.

Date: Thu Aug 18 21:49:02 2005
Author: dmurray

Index: climacs/lisp-syntax.lisp
diff -u climacs/lisp-syntax.lisp:1.32 climacs/lisp-syntax.lisp:1.33
--- climacs/lisp-syntax.lisp:1.32	Tue Aug 16 01:31:22 2005
+++ climacs/lisp-syntax.lisp	Thu Aug 18 21:49:01 2005
@@ -979,9 +979,9 @@
 	 (find-first-potentially-valid-lexeme (cdr parse-trees) offset))
 	((not (typep (car parse-trees) 'lexeme))
 	 (find-first-potentially-valid-lexeme (children (car parse-trees)) offset))
-	((< (start-offset (car parse-trees)) offset)
+	((<= (start-offset (car parse-trees)) offset)
 	 (loop with tree = (next-tree (car parse-trees))
-	       until (or (null tree) (>= (start-offset tree) offset))
+	       until (or (null tree) (> (start-offset tree) offset))
 	       do (setf tree (next-tree tree))
 	       finally (return tree)))
 	(t (car parse-trees))))
@@ -990,7 +990,7 @@
   (and (eq (class-of tree1) (class-of tree2))
        (eq (parser-state tree1) (parser-state tree2))
        (= (end-offset tree1) (end-offset tree2))))
-
+  
 (defmethod print-object ((mark mark) stream)
   (print-unreadable-object (mark stream :type t :identity t)
     (format stream "~s" (offset mark))))