comment

svn: r15458
2009-07-16 12:25:13 +00:00 · 2009-07-16 12:25:13 +00:00 · abc18a40c3
commit abc18a40c3
parent 30950afff5
1 changed files with 1 additions and 1 deletions
--- a/collects/scribble/text/output.ss
+++ b/collects/scribble/text/output.ss
@ -137,7 +137,7 @@
              (set-mcar! pfxs npfx)  (set-mcdr! pfxs 0)
              (for-each loop c)
              (set-mcar! pfxs pfx) (set-mcdr! pfxs lpfx))]
-           [(add-prefix)
+           [(add-prefix) ; add to the current prefix (unless it's #f)
            (let* ([pfx (mcar pfxs)] [lpfx (mcdr pfxs)]
                   [npfx (pfx+ (pfx+col (pfx+ pfx lpfx)) (car c))])
              (set-mcar! pfxs npfx) (set-mcdr! pfxs 0)