tweak the spacing in the bernoulli sequence

2013-12-10 12:11:11 -06:00 · 2013-12-10 12:11:11 -06:00 · 19d9d9a8ae
commit 19d9d9a8ae
parent 70a86aac84
1 changed files with 2 additions and 2 deletions
--- a/pkgs/drracket-pkgs/drracket/drracket/private/ada.rkt
+++ b/pkgs/drracket-pkgs/drracket/drracket/private/ada.rkt
@ -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])]))