suzanne.soy/debug-scopes
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

Merge pull request #3 from AlexKnauth/pretty

Browse Source 
use pretty-printing in +scopes
This commit is contained in:
Georges Dupéron 2018-05-24 23:17:56 +02:00 committed by GitHub
commit 8013bf1655
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
info.rkt
View File

@ -1,6 +1,7 @@
#lang info #lang info
(define collection "debug-scopes") (define collection "debug-scopes")
(define deps '("base" (define deps '("base"
"pretty-format"
"rackunit-lib" "rackunit-lib"
"reprovide-lang")) "reprovide-lang"))
(define build-deps '("scribble-lib" (define build-deps '("scribble-lib"

3
superscripts.rkt
View File

@ -4,6 +4,7 @@
racket/struct racket/struct
racket/string racket/string
racket/format racket/format
pretty-format
debug-scopes/named-scopes-sli-parameter) debug-scopes/named-scopes-sli-parameter)
(provide +scopes print-full-scopes) (provide +scopes print-full-scopes)
@ -160,7 +161,7 @@
"")) ""))
(define (+scopes stx) (define (+scopes stx)
(format "~a~a" (pretty-format "~a~a"
(syntax->datum (add-scopes stx)) (syntax->datum (add-scopes stx))
(sli/use stx))) (sli/use stx)))