1 Macro Stepper
expand/  step
expand-module/  step
2 Macro Expansion Tools
expand-only
expand/  hide
expand/  show-predicate
3 Macro Stepper API for Macros
emit-remark
emit-local-step
4 Macro Stepper Text Interface
expand/  step-text
stepper-text
5 Syntax Browser
browse-syntax
browse-syntaxes
6 Using the Macro Stepper
6.1 Navigation
6.2 Macro Hiding
7 Using the Syntax Browser
7.1 Selection
7.2 Primary Partition
7.3 Secondary Partitioning
7.4 Properties
7.5 Interpreting Syntax
8 Finding Useless requires
check-requires
show-requires
9 Showing Module Dependencies
show-dependencies
get-dependencies
5.3.6

Macro Debugger: Inspecting Macro Expansion

Ryan Culpepper

The macro-debugger collection contains two tools: a stepper for macro expansion and a standalone syntax browser. The macro stepper shows the programmer the expansion of a program as a sequence of rewriting steps, using the syntax browser to display the individual terms. The syntax browser uses colors and a properties panel to show the term’s syntax properties, such as lexical binding information and source location.

1 Macro Stepper

 (require macro-debugger/stepper)

procedure

(expand/step stx)  void?

  stx : any/c
Expands the syntax (or S-expression) and opens a macro stepper frame for stepping through the expansion.

procedure

(expand-module/step mod)  void?

  mod : module-path?
Expands the source file named by mod, which must contains a single module declaration, and opens a macro stepper frame for stepping through the expansion.

2 Macro Expansion Tools

 (require macro-debugger/expand)

This module provides expand-like procedures that allow the user to specify macros whose expansions should be hidden.

Warning: because of limitations in the way macro expansion is selectively hidden, the resulting syntax may not evaluate to the same result as the original syntax.

procedure

(expand-only stx transparent-macros)  syntax?

  stx : any/c
  transparent-macros : (listof identifier?)
Expands the given syntax stx, but only shows the expansion of macros whose names occur in transparent-macros.

Example:

> (syntax->datum
   (expand-only #'(let ([x 1] [y 2]) (or (even? x) (even? y)))
                (list #'or)))

'(let ((x 1) (y 2)) (let ((or-part (even? x))) (if or-part or-part (even? y))))

procedure

(expand/hide stx hidden-macros)  syntax?

  stx : any/c
  hidden-macros : (listof identifier?)
Expands the given syntax stx, but hides the expansion of macros in the given identifier list (conceptually, the complement of expand-only).

Example:

> (syntax->datum
   (expand/hide #'(let ([x 1] [y 2]) (or (even? x) (even? y)))
                (list #'or)))

'(let-values (((x) '1) ((y) '2)) (or (#%app even? x) (#%app even? y)))

procedure

(expand/show-predicate stx show?)  syntax?

  stx : any/c
  show? : (-> identifier? boolean?)
Expands the given syntax stx, but only shows the expansion of macros whose names satisfy the predicate show?.

Example:

> (syntax->datum
   (expand/show-predicate
    #'(let ([x 1] [y 2]) (or (even? x) (even? y)))
    (lambda (id) (memq (syntax-e id) '(or #%app)))))

'(let ((x 1) (y 2))

   (let ((or-part (#%app even? x))) (if or-part or-part (#%app even? y))))

3 Macro Stepper API for Macros

 (require macro-debugger/emit)

Macros can explicitly send information to a listening macro stepper by using the procedures in this module.

procedure

(emit-remark fragment ... [#:unmark? unmark?])  void?

  fragment : 
(letrec ([emit-arg/c
          (recursive-contract
           (or/c string?
                 syntax?
                 (listof emit-arg/c)
                 (-> emit-arg/c)))])
  emit-arg/c)
  unmark? : boolean? = (syntax-transforming?)
Emits an event to the macro stepper (if one is listening) containing the given strings and syntax objects. The macro stepper displays a remark by printing the strings and syntax objects above a rendering of the macro’s context. The remark is only displayed if the macro that emits it is considered transparent by the hiding policy.

By default, syntax objects in remarks have the transformer’s mark applied (using syntax-local-introduce) so that their appearance in the macro stepper matches their appearance after the transformer returns. Unmarking is suppressed if unmark? is #f.

(define-syntax (mymac stx)
  (syntax-case stx ()
    [(_ x y)
     (emit-remark "I got some arguments!"
                  #'x
                  "and"
                  #'y)
     #'(list 'x 'y)]))
(mymac 37 (+ 1 2))

(Run the fragment above in the macro stepper.)

procedure

(emit-local-step before after #:id id)  void?

  before : syntax?
  after : syntax?
  id : identifier?
Emits an event that simulates a local expansion step from before to after.

The id argument acts as the step’s “macro” for the purposes of macro hiding.

4 Macro Stepper Text Interface

 (require macro-debugger/stepper-text)

procedure

(expand/step-text stx [show?])  void?

  stx : any/c
  show? : 
(or/c (-> identifier? boolean?)
      (listof identifier?))
 = (lambda (x) #t)
Expands the syntax and prints the macro expansion steps. If the identifier predicate is given, it determines which macros are shown (if absent, all macros are shown). A list of identifiers is also accepted.

Example:

> (expand/step-text #'(let ([x 1] [y 2]) (or (even? x) (even? y)))
                    (list #'or))

Macro transformation

(let ((x 1) (y 2)) (or (even? x) (even? y)))

  ==>

(let

 ((x 1) (y 2))

 (let:1 ((or-part:1 (even? x))) (if:1 or-part:1 or-part:1 (or:1 (even? y)))))

Macro transformation

(let

 ((x 1) (y 2))

 (let:1 ((or-part:1 (even? x))) (if:1 or-part:1 or-part:1 (or:1 (even? y)))))

  ==>

(let

 ((x 1) (y 2))

 (let:1

  ((or-part:1 (even? x)))

  (if:1 or-part:1 or-part:1 (#%expression:2 (even? y)))))

Macro transformation

(let

 ((x 1) (y 2))

 (let:1

  ((or-part:1 (even? x)))

  (if:1 or-part:1 or-part:1 (#%expression:2 (even? y)))))

  ==>

(let

 ((x 1) (y 2))

 (let:1 ((or-part:1 (even? x))) (if:1 or-part:1 or-part:1 (even? y))))

procedure

(stepper-text stx [show?])  (symbol? -> void?)

  stx : any/c
  show? : 
(or/c (-> identifier? boolean?)
      (listof identifier?))
 = (lambda (x) #t)
Returns a procedure that can be called on the symbol 'next to print the next step or on the symbol 'all to print out all remaining steps.

5 Syntax Browser

 (require macro-debugger/syntax-browser)

procedure

(browse-syntax stx)  void?

  stx : syntax?
Creates a frame with the given syntax object shown. More information on using the GUI is available below.

procedure

(browse-syntaxes stxs)  void?

  stxs : (listof syntax?)
Like browse-syntax, but shows multiple syntax objects in the same frame. The coloring partitions are shared between the two, showing the relationships between subterms in different syntax objects.

6 Using the Macro Stepper

6.1 Navigation

The stepper presents expansion as a linear sequence of rewriting process, and it gives the user controls to step forward or backwards as well as to jump to the beginning or end of the expansion process.

If the macro stepper is showing multiple expansions, then it also provides “Previous term” and “Next term” buttons to go up and down in the list of expansions. Horizontal lines delimit the current expansion from the others.

6.2 Macro Hiding

Macro hiding lets one see how expansion would look if certain macros were actually primitive syntactic forms. The macro stepper skips over the expansion of the macros you designate as opaque, but it still shows the expansion of their subterms.

The bottom panel of the macro stepper controls the macro hiding policy. The user changes the policy by selecting an identifier in the syntax browser pane and then clicking one of “Hide module”, “Hide macro”, or “Show macro”. The new rule appears in the policy display, and the user may later remove it using the "Delete" button.

The stepper also offers coarser-grained options that can hide collections of modules at once. These options have lower precedence than the rules above.

Macro hiding, even with no macros marked opaque, also hides certain other kinds of steps: internal defines are not rewritten to letrecs, begin forms are not spliced into module or block bodies, etc.

7 Using the Syntax Browser

7.1 Selection

The selection is indicated by bold text.

The user can click on any part of a subterm to select it. To select a parenthesized subterm, click on either of the parentheses. The selected syntax is bolded. Since one syntax object may occur inside of multiple other syntax objects, clicking on one occurrence will cause all occurrences to be bolded.

The syntax browser displays information about the selected syntax object in the properties panel on the right, when that panel is shown. The selected syntax also determines the highlighting done by the secondary partitioning (see below).

7.2 Primary Partition

The primary partition is indicated by foreground color.

The primary partitioning always assigns two syntax subterms the same color if they have the same marks. In the absence of unhygienic macros, this means that subterms with the same foreground color were either present in the original pre-expansion syntax or generated by the same macro transformation step.

Syntax colored in black always corresponds to unmarked syntax. Such syntax may be original, or it may be produced by the expansion of a nonhygienic macro.

Note: even terms that have the same marks might not be bound-identifier=? to each other, because they might occur in different environments.

7.3 Secondary Partitioning

The user may select a secondary partitioning through the Syntax menu. This partitioning applies only to identifiers. When the user selects an identifier, all terms in the same equivalence class as the selected term are highlighted in yellow.

The available secondary partitionings are:

7.4 Properties

When the properties pane is shown, it displays properties of the selected syntax object. The properties pane has two tabbed pages:

7.5 Interpreting Syntax

The binding information of a syntax object may not be the same as the binding structure of the program it represents. The binding structure of a program is only determined after macro expansion is complete.

8 Finding Useless requires

 (require macro-debugger/analysis/check-requires)

The macro-debugger/analysis/check-requires can be run as a command-line script. For example (from racket root directory):

racket -lm macro-debugger/analysis/check-requires \

  collects/syntax/*.rkt

 

racket -lm macro-debugger/analysis/check-requires -- -kbu \

  openssl

Each argument is interpreted as a file path if it exists; otherwise, it is interpreted as a module path. See check-requires for a description of the output format, known limitations in the script’s recommendations, etc.

procedure

(check-requires module-to-analyze    
  [#:show-keep? show-keep?    
  #:show-bypass? show-bypass?    
  #:show-drop? show-drop?    
  #:show-uses? show-uses?])  void?
  module-to-analyze : module-path?
  show-keep? : boolean? = #t
  show-bypass? : boolean? = #t
  show-drop? : boolean? = #t
  show-uses? : boolean? = #f
Analyzes module-to-analyze, detecting useless requires. Each module imported by module-to-analyze is classified as one of KEEP, BYPASS, or DROP. For each required module, one or more lines is printed with the module’s classification and supporting information. Output may be suppressed based on classification via show-keep?, show-bypass?, and show-drop?; by default, only DROP recommendations are printed.

Modules required for-label are not analyzed.

KEEP req-module at req-phase

The require of module req-module at phase req-phase must be kept because bindings defined within it are used.

If show-uses? is true, the dependencies of module-to-analyze on req-module are enumerated, one per line, in the following format:

exp-name at use-phase (mode ...) [RENAMED TO ref-name]

Indicates an export named exp-name is used at phase use-phase (not necessarily the phase it was provided at, if req-phase is non-zero).

The modes indicate what kind(s) of dependencies were observed: used as a reference, appeared in a syntax template (quote-syntax), etc.

If the RENAMED TO clause is present, it indicates that the binding is renamed on import into the module, and ref-name gives the local name used (exp-name is the name under which req-module provides the binding).

BYPASS req-module at req-phase

The require is used, but only for bindings that could be more directly obtained via one or more other modules. For example, a use of racket might be bypassed in favor of racket/base, racket/match, and racket/contract, etc.

A list of replacement requires is given, one per line, in the following format:

TO repl-module at repl-phase [WITH RENAMING]

Add a require of repl-module at phase repl-phase. If show-uses? is true, then following each TO line is an enumeration of the dependencies that would be satisfied by repl-module in the same format as described under KEEP below.

If the WITH RENAMING clause is present, it indicates that at least one of the replacement modules provides a binding under a different name from the one used locally in the module. Either the references should be changed or rename-in should be used with the replacement modules as necessary.

Bypass recommendations are restricted by the following rules:
  • repl-module must not involve crossing a new private directory from req-module

  • repl-module is never a built-in (“#%”) module

  • req-module must not be in the “no-bypass” whitelist

DROP req-module at req-phase

The require appears to be unused, and it can probably be dropped entirely.

Due to limitations in its implementation strategy, check-requires occasionally suggests dropping or bypassing a module that should not be dropped or bypassed. The following are typical reasons for such bad suggestions:

Examples:

> (check-requires 'framework)

BYPASS scheme/base at 1

  TO racket/base at 1

KEEP "private/scheme.rkt" at 1

KEEP racket/base at 0

KEEP racket/contract/base at 0

KEEP racket/unit at 0

KEEP racket/class at 0

KEEP racket/gui/base at 0

KEEP mred/mred-unit at 0

KEEP framework/framework-unit at 0

KEEP framework/private/sig at 0

KEEP scribble/srcdoc at 0

KEEP framework/private/focus-table at 0

KEEP framework/preferences at 0

KEEP framework/test at 0

KEEP framework/gui-utils at 0

KEEP framework/decorated-editor-snip at 0

KEEP framework/private/decorated-editor-snip at 0

> (check-requires 'openssl #:show-uses? #t)

BYPASS scheme/base at 0

  TO racket/base at 0

    #%module-begin at 0 (reference)

    all-from-out at 0 (syntax-local-value)

    provide at 0 (reference)

    require at 0 (reference)

KEEP "mzssl.rkt" at 0

  ports->ssl-ports at 0 (provide)

  ssl-abandon-port at 0 (provide)

  ssl-accept at 0 (provide)

  ssl-accept/enable-break at 0 (provide)

  ssl-addresses at 0 (provide)

  ssl-available? at 0 (provide)

  ssl-client-context? at 0 (provide)

  ssl-close at 0 (provide)

  ssl-connect at 0 (provide)

  ssl-connect/enable-break at 0 (provide)

  ssl-context? at 0 (provide)

  ssl-default-verify-sources at 0 (provide)

  ssl-listen at 0 (provide)

  ssl-listener? at 0 (provide)

  ssl-load-certificate-chain! at 0 (provide)

  ssl-load-default-verify-sources! at 0 (provide)

  ssl-load-fail-reason at 0 (provide)

  ssl-load-private-key! at 0 (provide)

  ssl-load-suggested-certificate-authorities! at 0 (provide)

  ssl-load-verify-root-certificates! at 0 (provide)

  ssl-load-verify-source! at 0 (provide)

  ssl-make-client-context at 0 (provide)

  ssl-make-server-context at 0 (provide)

  ssl-peer-certificate-hostnames at 0 (provide)

  ssl-peer-check-hostname at 0 (provide)

  ssl-peer-issuer-name at 0 (provide)

  ssl-peer-subject-name at 0 (provide)

  ssl-peer-verified? at 0 (provide)

  ssl-port? at 0 (provide)

  ssl-seal-context! at 0 (provide)

  ssl-secure-client-context at 0 (provide)

  ssl-server-context? at 0 (provide)

  ssl-set-ciphers! at 0 (provide)

  ssl-set-verify! at 0 (provide)

  ssl-set-verify-hostname! at 0 (provide)

  ssl-try-verify! at 0 (provide)

procedure

(show-requires module-name)

  
(listof (list/c 'keep   module-path? number?)
        (list/c 'bypass module-path? number? list?)
        (list/c 'drop   module-path? number?))
  module-name : module-path?
Like check-requires, but returns the analysis as a list instead of printing it. The procedure returns one element per (non-label) require in the following format:
  • (list 'keep req-module req-phase)

  • (list 'bypass req-module req-phase replacements)

  • (list 'drop req-module req-phase)

Example:

> (show-requires 'framework)

'((bypass scheme/base 1 ((racket/base 1 #f)))

  (keep "private/scheme.rkt" 1)

  (keep racket/base 0)

  (keep racket/contract/base 0)

  (keep racket/unit 0)

  (keep racket/class 0)

  (keep racket/gui/base 0)

  (keep mred/mred-unit 0)

  (keep framework/framework-unit 0)

  (keep framework/private/sig 0)

  (keep scribble/srcdoc 0)

  (keep framework/private/focus-table 0)

  (keep framework/preferences 0)

  (keep framework/test 0)

  (keep framework/gui-utils 0)

  (keep framework/decorated-editor-snip 0)

  (keep framework/private/decorated-editor-snip 0))

9 Showing Module Dependencies

 (require macro-debugger/analysis/show-dependencies)

The macro-debugger/analysis/show-dependencies module can be run as a command-line script. For example (from racket root directory):

racket -lm macro-debugger/analysis/show-dependencies -- -bc \

  collects/openssl/main.rkt

 

racket -lm macro-debugger/analysis/show-dependencies -- -c \

  --exclude racket \

  openssl

Each argument is interpreted as a file path if it exists; otherwise it is interpreted as a module path. See show-dependencies for a description of the output format.

procedure

(show-dependencies root    
  ...    
  [#:exclude exclude    
  #:exclude-deps exclude-deps    
  #:show-context? show-context?])  void?
  root : module-path?
  exclude : (listof module-path?) = null
  exclude-deps : (listof module-path?) = null
  show-context? : boolean? = #f
Computes the set of modules transitively required by the root module(s). A root module is included in the output only if it is a dependency of another root module. The computed dependencies do not include modules reached through dynamic-require or lazy-require or referenced by define-runtime-module-path-index but do include modules referenced by define-runtime-module-path (since that implicitly creates a for-label dependency).

Dependencies are printed, one per line, in the following format:

dep-module [<- (direct-dependent ...)]

Indicates that dep-module is transitively required by one or more root modules. If show-context? is true, then the direct-dependents are shown; they are the modules reachable from (and including) the root modules that directly require dep-module.

The dependencies are trimmed by removing any module reachable from (or equal to) a module in exclude as well as any module reachable from (but not equal to) a module in exclude-deps.

Examples:

> (show-dependencies 'openssl
                     #:exclude (list 'racket))

ffi/file

ffi/unsafe

ffi/unsafe/alloc

ffi/unsafe/atomic

ffi/unsafe/define

openssl/libcrypto

openssl/libssl

openssl/mzssl

scheme/base

scheme/private/namespace

(quote #%foreign)

> (show-dependencies 'openssl
                     #:show-context? #t
                     #:exclude (list 'racket))

ffi/file <- (openssl/mzssl)

ffi/unsafe <- (ffi/file ffi/unsafe/alloc ffi/unsafe/atomic ffi/unsafe/define openssl/libcrypto openssl/libssl openssl/mzssl)

ffi/unsafe/alloc <- (openssl/mzssl)

ffi/unsafe/atomic <- (ffi/unsafe/alloc openssl/mzssl)

ffi/unsafe/define <- (openssl/mzssl)

openssl/libcrypto <- (openssl/libssl openssl/mzssl)

openssl/libssl <- (openssl/mzssl)

openssl/mzssl <- (openssl)

scheme/base <- (openssl)

scheme/private/namespace <- (scheme/base)

(quote #%foreign) <- (ffi/unsafe)

procedure

(get-dependencies root 
  ... 
  [#:exclude exclude 
  #:exclude-deps exclude-deps]) 
  (listof (list module-path? (listof module-path?)))
  root : module-path?
  exclude : (listof module-path?) = null
  exclude-deps : (listof module-path?) = null
Like show-dependencies, but returns a list instead of producing output. Each element of the list is a list containing a module path and the module paths of its immediate dependents.

Example:

> (get-dependencies 'openssl #:exclude (list 'racket))

'((ffi/file (openssl/mzssl))

  (ffi/unsafe

   (ffi/file

    ffi/unsafe/alloc

    ffi/unsafe/atomic

    ffi/unsafe/define

    openssl/libcrypto

    openssl/libssl

    openssl/mzssl))

  (ffi/unsafe/alloc (openssl/mzssl))

  (ffi/unsafe/atomic (ffi/unsafe/alloc openssl/mzssl))

  (ffi/unsafe/define (openssl/mzssl))

  (openssl/libcrypto (openssl/libssl openssl/mzssl))

  (openssl/libssl (openssl/mzssl))

  (openssl/mzssl (openssl))

  (scheme/base (openssl))

  (scheme/private/namespace (scheme/base))

  ('#%foreign (ffi/unsafe)))