no need for this hack yet

svn: r16062

original commit: 05a937a334d318a7e93ee55e2f47bfb4d8c63d65
This commit is contained in:
Eli Barzilay 2009-09-18 06:12:28 +00:00
parent b69db24297
commit 803add9f4f

View File

@ -153,6 +153,7 @@
(set! write (or (car c) write-string))
(for-each loop (cdr c))
(set! write old))]
#; ; no need for this hack yet
[(with-writer-change)
;; the function gets the old writer and return a new one
;; (useful to sabe the current writer then restore it inside)
@ -209,6 +210,7 @@
(define/provide-special (add-prefix pfx))
(define/provide-special (set-prefix pfx))
(define/provide-special (with-writer writer))
#; ; no need for this hack yet
(define/provide-special (with-writer-change writer))
(define make-spaces ; (efficiently)