www

commit b96cc269ebe07da004b843af44a2bc6f72786735
parent bcd232aab9b2992f967303e68ed5f5d2f7356998
Author: AlexKnauth <alexander@knauth.org>
Date:   Thu, 24 May 2018 17:08:28 -0400

use pretty-printing in +scopes

Diffstat:
M
info.rkt
 | 
1
+
M
superscripts.rkt
 | 
7
++++---

2 files changed, 5 insertions(+), 3 deletions(-)
diff --git a/info.rkt b/info.rkt
@@ -1,6 +1,7 @@
 #lang info
 (define collection "debug-scopes")
 (define deps '("base"
+               "pretty-format"
                "rackunit-lib"
                "reprovide-lang"))
 (define build-deps '("scribble-lib"
diff --git a/superscripts.rkt b/superscripts.rkt
@@ -4,6 +4,7 @@
          racket/struct
          racket/string
          racket/format
+         pretty-format
          debug-scopes/named-scopes-sli-parameter)
 
 (provide +scopes print-full-scopes)
@@ -160,9 +161,9 @@
       ""))
 
 (define (+scopes stx)
-  (format "~a~a"
-          (syntax->datum (add-scopes stx))
-          (sli/use stx)))
+  (pretty-format "~a~a"
+                 (syntax->datum (add-scopes stx))
+                 (sli/use stx)))
 
 #;(define-syntax (foo stx)
     (displayln (+scopes stx))