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

use pretty-printing in +scopes

Browse Source
This commit is contained in:
AlexKnauth 2018-05-24 17:08:28 -04:00
parent bcd232aab9
commit b96cc269eb
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"

7
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,9 +161,9 @@
"")) ""))
(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)))
#;(define-syntax (foo stx) #;(define-syntax (foo stx)
(displayln (+scopes stx)) (displayln (+scopes stx))