mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-22 20:40:29 +02:00
Code Activity

* format.scm (format:format-work): Use #\tab and #\page instead of

Browse source 
slib:form-feed and slib:tab.  (Thanks to Ceri Storey.)

* format.scm (format:abort): Call error, not slib:error.
This commit is contained in:
Jim Blandy 1999-09-11 17:51:09 +00:00
parent 3dcdcfe8c7
commit 8a7391cd1a
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
ice-9/format.scm
View file

@ -432,13 +432,13 @@
(anychar-dispatch)) (anychar-dispatch))
((#\/) ; Tabulator character ((#\/) ; Tabulator character
(if (one-positive-integer? params) (if (one-positive-integer? params)
(format:out-fill (car params) slib:tab) (format:out-fill (car params) #\tab)
(format:out-char slib:tab)) (format:out-char #\tab))
(anychar-dispatch)) (anychar-dispatch))
((#\|) ; Page seperator ((#\|) ; Page seperator
(if (one-positive-integer? params) (if (one-positive-integer? params)
(format:out-fill (car params) slib:form-feed) (format:out-fill (car params) #\page)
(format:out-char slib:form-feed)) (format:out-char #\page))
(set! format:output-col 0) (set! format:output-col 0)
(anychar-dispatch)) (anychar-dispatch))
((#\T) ; Tabulate ((#\T) ; Tabulate
@ -1668,7 +1668,7 @@
;; Aborts the program when a formatting error occures. This is a null ;; Aborts the program when a formatting error occures. This is a null
;; argument closure to jump to the interpreters toplevel continuation. ;; 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) (define format format:format)