From 3ef64fff6cec107fd4cc572fbe283283aae264e7 Mon Sep 17 00:00:00 2001
From: Jay McCarthy <jay@racket-lang.org>
Date: Wed, 18 Jun 2014 15:08:21 -0600
Subject: [PATCH] Add multiple STDERR links

---
 pkgs/plt-services/meta/drdr/render.rkt        | 22 +++++++++++++------
 .../plt-services/meta/drdr/status-analyze.rkt |  1 +
 2 files changed, 16 insertions(+), 7 deletions(-)

diff --git a/pkgs/plt-services/meta/drdr/render.rkt b/pkgs/plt-services/meta/drdr/render.rkt
index ec3609fddc..c74c66bc0f 100644
--- a/pkgs/plt-services/meta/drdr/render.rkt
+++ b/pkgs/plt-services/meta/drdr/render.rkt
@@ -408,13 +408,21 @@
                                     "See the difference")))
                       ,@(if (empty? output-log)
                             '()
-                            ;; xxx add a link if length is > 1 or top is stderr?
-                            `((div 
-                               ([class "output"]) " "
-                               ,@(append*
-                                  (for/list ([o-block (in-list s-output-log)])
-                                    ;; xxx add an anchor on each of these blocks
-                                    (map render-event o-block))))))
+                            (append*
+                             (for/list ([o-block (in-list s-output-log)]
+                                        [i (in-naturals)])
+                               `((span ([id ,(format "output~a" i)]) " ")
+                                 ,(if (> (length s-output-log) (add1 i))
+                                    `(div ([class "error"])
+                                          "There is another block of STDERR output: "
+                                          (a ([href ,(format "#output~a" (add1 i))])
+                                             "skip to it")
+                                          ".")
+                                    "")
+                                 (div 
+                                  ([class "output"])
+                                  " "
+                                  ,@(map render-event o-block))))))
 
                       (p)
                       
diff --git a/pkgs/plt-services/meta/drdr/status-analyze.rkt b/pkgs/plt-services/meta/drdr/status-analyze.rkt
index c301c121a7..107d1b39d0 100644
--- a/pkgs/plt-services/meta/drdr/status-analyze.rkt
+++ b/pkgs/plt-services/meta/drdr/status-analyze.rkt
@@ -21,6 +21,7 @@
        [(? stderr?)
         (cons (cons s trl) rrl)])]))
 
+'
 (module+ test
   (require rackunit)
   (check-equal?