From 8a7391cd1adc8606d233c56c41cfa06de7e8a9df Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Sat, 11 Sep 1999 17:51:09 +0000 Subject: [PATCH] * format.scm (format:format-work): Use #\tab and #\page instead of slib:form-feed and slib:tab. (Thanks to Ceri Storey.) * format.scm (format:abort): Call error, not slib:error. --- ice-9/format.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/ice-9/format.scm b/ice-9/format.scm index 28f358d6e..fce2737ce 100644 --- a/ice-9/format.scm +++ b/ice-9/format.scm @@ -432,13 +432,13 @@ (anychar-dispatch)) ((#\/) ; Tabulator character (if (one-positive-integer? params) - (format:out-fill (car params) slib:tab) - (format:out-char slib:tab)) + (format:out-fill (car params) #\tab) + (format:out-char #\tab)) (anychar-dispatch)) ((#\|) ; Page seperator (if (one-positive-integer? params) - (format:out-fill (car params) slib:form-feed) - (format:out-char slib:form-feed)) + (format:out-fill (car params) #\page) + (format:out-char #\page)) (set! format:output-col 0) (anychar-dispatch)) ((#\T) ; Tabulate @@ -1668,7 +1668,7 @@ ;; Aborts the program when a formatting error occures. This is a null ;; argument closure to jump to the interpreters toplevel continuation. -(define format:abort (lambda () (slib:error "error in format"))) +(define format:abort (lambda () (error "error in format"))) (define format format:format)