www

commit 8013bf16557942a2d02e8d2de1c29be6bee85a9b
parent bcd232aab9b2992f967303e68ed5f5d2f7356998
Author: Georges Dupéron <jahvascriptmaniac+github@gmail.com>
Date:   Thu, 24 May 2018 23:17:56 +0200

Merge pull request #3 from AlexKnauth/pretty

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))