From 93d9c132a7f713c55a073e5d21c56d7c710a9cd4 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Sat, 3 May 2008 11:18:06 +0000 Subject: [PATCH] Add template-binding information to syntax browser. svn: r9626 original commit: 0340ae770f38f858c74f9476f82d32d7921515e6 --- collects/mrlib/syntax-browser.ss | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/mrlib/syntax-browser.ss b/collects/mrlib/syntax-browser.ss index 795e1c81..22b69cf1 100644 --- a/collects/mrlib/syntax-browser.ss +++ b/collects/mrlib/syntax-browser.ss @@ -174,7 +174,8 @@ needed to really make this work: (piece-of-info "Original?" (syntax-original? stx)) (when (identifier? stx) (piece-of-info "Identifier-binding" (identifier-binding stx)) - (piece-of-info "Identifier-transformer-binding" (identifier-transformer-binding stx))) + (piece-of-info "Identifier-transformer-binding" (identifier-transformer-binding stx)) + (piece-of-info "Identifier-template-binding" (identifier-template-binding stx))) (let ([properties (syntax-property-symbol-keys stx)]) (unless (null? properties)