* emacs.scm (emacs-load): Adjust stack narrowing.

(whitespace-chars): Include #\np.

diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index ce01cbe..72a788a 100644 (file)
--- a/ice-9/ChangeLog
+++ b/ice-9/ChangeLog
@@ -1,6 +1,7 @@
 Wed Aug 20 13:21:11 1997  Mikael Djurfeldt  <mdj@mdj.nada.kth.se>
 
        * emacs.scm (emacs-load): Adjust stack narrowing.
+       (whitespace-chars): Include #\np.
 
        * syncase.scm: Also turn off debugging evaluator and recording of
        procedure names during loading of psyntax.pp.

diff --git a/ice-9/emacs.scm b/ice-9/emacs.scm
index c80eddf..6ba3293 100644 (file)
--- a/ice-9/emacs.scm
+++ b/ice-9/emacs.scm
@@ -107,7 +107,7 @@
     (if (not (eq? c #\nl))
        (loop (read-char port)))))
 
-(define whitespace-chars (list #\space #\tab #\nl))
+(define whitespace-chars (list #\space #\tab #\nl #\np))
 
 (define (flush-whitespace port)
   (catch 'end-of-chunk
@@ -132,7 +132,8 @@
                (let loop ((endp (flush-whitespace %%load-port)))
                  (if (not endp)
                      (begin
-                       (start-stack read-and-eval! (read-and-eval! %%load-port))
+                       (start-stack read-and-eval!
+                                    (read-and-eval! %%load-port))
                        (loop (flush-whitespace %%load-port)))
                      (begin
                        (load-acknowledge))))
@@ -142,7 +143,7 @@
                       (set! the-last-stack #f)
                       (set! stack-saved? #t)
                       (scm-error 'misc-error
-                                 'emacs-load
+                                 #f
                                  "Incomplete expression"
                                  '()
                                  '()))