From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 4 Oct 2001 16:59:56 +0000 (+0000)
Subject: Fix typo.
X-Git-Tag: 20090517-FFI~2522
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7f7109341a72abfbc24fe521fa0f0a5ae233da30;p=mit-scheme.git

Fix typo.
---

diff --git a/v7/src/star-parser/buffer.scm b/v7/src/star-parser/buffer.scm
index 4ef454588..d9d53b740 100644
--- 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))))
 
 (let-syntax
     ((string-matcher
diff --git a/v7/src/star-parser/unicode.scm b/v7/src/star-parser/unicode.scm
index 29de59514..75e62208e 100644
--- 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)))