commit ed1fbcbaaaf67e3c27eb614793bae55dff4eb313
parent 115c056061f9cf9b1b21d6e19c4ab7eb12cde9fd
Author: Georges Dupéron <georges.duperon@gmail.com>
Date: Mon, 24 Apr 2017 22:58:07 +0200
Documented make-module-like-named-scope, specified module for that binding and make-named-scope
Diffstat:
2 files changed, 13 insertions(+), 2 deletions(-)
diff --git a/scribblings/debug-scopes.scrbl b/scribblings/debug-scopes.scrbl
@@ -74,6 +74,8 @@
@section{Hack for named scopes}
+@defmodule[debug-scopes/named-scopes/exptime]
+
Module scopes bear are annotated by Racket with the name of the module. As of
December 2016, other scopes like macro scopes@note{Both the ones implicitly
created when a macro is called, and the ones explicitly created via
@@ -87,7 +89,16 @@ any form of annotation or naming.
implementation mechanism may vary in future versions, for example if later
versions of Racket directly support the creation of named scopes,
@racket[make-named-scope] would simply become an alias for the official
- mechanism.}
+ mechanism. Later versions of this function may therefore produce named scopes
+ other than module-like scopes.}
+
+@defproc[(make-module-like-named-scope [name (or/c string? symbol?)])
+ (->* (syntax?) ([or/c 'add 'remove 'flip]) syntax?)]{
+ Produces a named module-like scope. The @racket[make-named-scope] function
+ currently also produces a module-like scope, so the two are equivalent for now.
+ In later versions, @racket[make-named-scope] may produce other sorts of named
+ scopes if they can be created more efficiently, but
+ @racket[make-module-like-named-scope] will always produce module-like scopes.}
@define[orig:define-syntax @racket[define-syntax]]
@define[orig:syntax-local-introduce @racket[syntax-local-introduce]]
diff --git a/superscripts.rkt b/superscripts.rkt
@@ -19,7 +19,7 @@
(string-join (map ~a (cdr (vector->list (cddr s))))
" ")))
scopes))
- (define max-len (apply max (map string-length l)))
+ (define max-len (apply max 0 (map string-length l)))
(define (pad str)
(string-append
str
