bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit 4c6575e28c74f5c9de16b743fc0b4fc4f23af9c7
parent a0b4797b47ad100371703c87c6f98aa1c28a62cb
Author: Eli Barzilay <eli@racket-lang.org>
Date:   Tue, 14 Jul 2009 03:33:38 +0000

added set-prefix

svn: r15440

original commit: b7b143120b8c2800a2849e616fb762beed66b50d

Diffstat:
M
collects/scribble/text/output.ss
 | 
8
+++++++-
M
collects/scribblings/scribble/preprocessor.scrbl
 | 
2
+-

2 files changed, 8 insertions(+), 2 deletions(-)
diff --git a/collects/scribble/text/output.ss b/collects/scribble/text/output.ss
@@ -137,12 +137,17 @@
               (set-mcar! pfxs npfx)  (set-mcdr! pfxs 0)
               (for-each loop c)
               (set-mcar! pfxs pfx) (set-mcdr! pfxs lpfx))]
-           [(prefix)
+           [(prefix) ; maybe call this `add-prefix'?
             (let* ([pfx (mcar pfxs)] [lpfx (mcdr pfxs)]
                    [npfx (pfx+ (pfx+col (pfx+ pfx lpfx)) (car c))])
               (set-mcar! pfxs npfx) (set-mcdr! pfxs 0)
               (for-each loop (cdr c))
               (set-mcar! pfxs pfx) (set-mcdr! pfxs lpfx))]
+           [(set-prefix)
+            (let ([pfx (mcar pfxs)] [lpfx (mcdr pfxs)])
+              (set-mcar! pfxs (car c)) (set-mcdr! pfxs 0)
+              (for-each loop (cdr c))
+              (set-mcar! pfxs pfx) (set-mcdr! pfxs lpfx))]
            [(with-writer)
             (let ([old write])
               (set! write (or (car c) write-string))
@@ -195,6 +200,7 @@
 (define/provide-special (disable-prefix))
 (define/provide-special (restore-prefix))
 (define/provide-special (prefix pfx))
+(define/provide-special (set-prefix pfx))
 (define/provide-special (with-writer writer))
 
 (define make-spaces ; (efficiently)
diff --git a/collects/scribblings/scribble/preprocessor.scrbl b/collects/scribblings/scribble/preprocessor.scrbl
@@ -1077,7 +1077,7 @@ module's text does.  If you find yourself in such a situation, it is
 better to switch to a Scheme-with-@"@"-expressions file as shown
 above.)
 
-@;FIXME: add more text on `restore-prefix', and on `with-writer'
+@;FIXME: add more text on `restore-prefix', `set-prefix', `with-writer'
 
 @;FIXME: add this to the reference section
 @;@defform[(include filename)]{