* Fix spelling mistake.

diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index 0f89081..530f80c 100644 (file)
--- a/ice-9/ChangeLog
+++ b/ice-9/ChangeLog
@@ -1,3 +1,7 @@
+2000-12-07  Neil Jerram  <neil@ossau.uklinux.net>
+
+       * emacs.scm (flush-whitespace): Fix spelling typo ("recieving").
+
 2000-11-28  Dirk Herrmann  <D.Herrmann@tu-bs.de>
 
        * boot-9.scm (read-delimited), lineio.scm

diff --git a/ice-9/emacs.scm b/ice-9/emacs.scm
index 850571d..4fa6bcd 100644 (file)
--- a/ice-9/emacs.scm
+++ b/ice-9/emacs.scm
@@ -116,7 +116,7 @@
         (lambda ()
           (let loop ((c (read-char port)))
             (cond ((eq? c the-eof-object)
-                   (error "End of file while recieving Emacs data"))
+                   (error "End of file while receiving Emacs data"))
                   ((memq c whitespace-chars) (loop (read-char port)))
                   ((eq? c #\;) (flush-line port) (loop (read-char port)))
                   (else (unread-char c port))))