Fix typo.

diff --git a/v7/src/star-parser/buffer.scm b/v7/src/star-parser/buffer.scm
index 4ef4545888510587a93b878bee82330b8f844d1f..d9d53b7405f9bf7052494417ff0a29fd77c749a2 100644 (file)
--- a/v7/src/star-parser/buffer.scm
+++ b/v7/src/star-parser/buffer.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: buffer.scm,v 1.10 2001/10/04 15:53:52 cph Exp $
+;;; $Id: buffer.scm,v 1.11 2001/10/04 16:59:56 cph Exp $
 ;;;
 ;;; Copyright (c) 2001 Massachusetts Institute of Technology
 ;;;
@@ -170,16 +170,17 @@
   (char-matcher char-in-set (char-set-member? reference char)))
 
 (define (match-utf8-char-in-alphabet buffer alphabet)
-  (if (let ((n
-            (read-utf8-code-point-from-source
-             (lambda ()
-               (read-parser-buffer-char buffer)))))
-       (and n
-            (code-point-in-alphabet? n alphabet)))
-      #t
-      (begin
-       (set-parser-buffer-pointer! buffer p)
-       #f)))
+  (let ((p (get-parser-buffer-pointer buffer)))
+    (if (let ((n
+              (read-utf8-code-point-from-source
+               (lambda ()
+                 (read-parser-buffer-char buffer)))))
+         (and n
+              (code-point-in-alphabet? n alphabet)))
+       #t
+       (begin
+         (set-parser-buffer-pointer! buffer p)
+         #f))))
 \f
 (let-syntax
     ((string-matcher

diff --git a/v7/src/star-parser/unicode.scm b/v7/src/star-parser/unicode.scm
index 29de59514310327219da17e29e9dca53a766eb99..75e62208e74197f930d11f99d399bce217e96027 100644 (file)
--- a/v7/src/star-parser/unicode.scm
+++ b/v7/src/star-parser/unicode.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: unicode.scm,v 1.5 2001/10/04 16:28:57 cph Exp $
+;;; $Id: unicode.scm,v 1.6 2001/10/04 16:59:18 cph Exp $
 ;;;
 ;;; Copyright (c) 2001 Massachusetts Institute of Technology
 ;;;
@@ -402,7 +402,7 @@
                (fix:or (fix:lsh n4 6)
                        n5))))
          (else
-          (error "Illegal initial UTF-8 char:" c)))))
+          (error "Illegal initial UTF-8 char:" c0)))))
 
 (define (utf8-string->code-point string)
   (read-utf8-code-point (string->input-port string)))