From 19d9d9a8ae73fe215e5ebf64fc3f3f9fea24717e Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Tue, 10 Dec 2013 12:11:11 -0600
Subject: [PATCH] tweak the spacing in the bernoulli sequence

---
 pkgs/drracket-pkgs/drracket/drracket/private/ada.rkt | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/pkgs/drracket-pkgs/drracket/drracket/private/ada.rkt b/pkgs/drracket-pkgs/drracket/drracket/private/ada.rkt
index 901348ae8b..1c17166592 100644
--- a/pkgs/drracket-pkgs/drracket/drracket/private/ada.rkt
+++ b/pkgs/drracket-pkgs/drracket/drracket/private/ada.rkt
@@ -55,7 +55,7 @@ bernoulli sequence
          (add-between
           (for/list ([x (in-range n)])
             (number->pict (bernoulli-number x)))
-          (tt ", "))))
+          (tt ",  "))))
 
 (define (tt str)
   (text str 'roman 24))
@@ -70,7 +70,7 @@ bernoulli sequence
      (define abs-frac (vc-append 2 n line d))
      (cond
        [(negative? num)
-        (hc-append (tt "-") abs-frac)]
+        (hc-append 4 (tt "-") abs-frac)]
        [else
         abs-frac])]))