suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

no need for this hack yet

Browse Source 
svn: r16062
This commit is contained in:
Eli Barzilay 2009-09-18 06:12:28 +00:00
parent 182f89d580
commit 05a937a334
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/scribble/text/output.ss
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)