Cleaning up printer

2010-06-24 14:33:57 -06:00 · 2010-06-24 14:33:57 -06:00 · 80da9872e0
commit 80da9872e0
parent 353ef05902
1 changed files with 2 additions and 2 deletions
--- a/collects/datalog/private/pprint.rkt
+++ b/collects/datalog/private/pprint.rkt
@ -7,9 +7,9 @@
 (define (text s) s)
 (define (h-append . ss) (apply string-append ss))
 (define (v-concat/s ss)
-  (apply string-append (add-between ss "\n")))
+  (apply string-append ss))
 (define (v-concat ss)
-  (v-concat/s ss))
+  (apply string-append (add-between ss "\n")))
 (define (apply-infix d ds)
  (add-between ds d))
 (define line "\n")