From 808fcd75150b50352da57eaefbaaef186378d40c Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 28 Jan 2005 15:05:08 +0000 Subject: [PATCH] . original commit: 9b4c63e0d2c2f03bc79a48f3f290ec539012dc3b --- collects/drscheme/private/syntax-browser.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/drscheme/private/syntax-browser.ss b/collects/drscheme/private/syntax-browser.ss index 41fdcc68..ac1a007e 100644 --- a/collects/drscheme/private/syntax-browser.ss +++ b/collects/drscheme/private/syntax-browser.ss @@ -112,7 +112,7 @@ needed to really make this work: (piece-of-info "Identifier-binding" (identifier-binding stx)) (piece-of-info "Identifier-transformer-binding" (identifier-transformer-binding stx))) - (let ([properties (syntax-properties stx)]) + (let ([properties (syntax-property-symbol-keys stx)]) (unless (null? properties) (insert/big "Known properties\n") (for-each @@ -518,7 +518,7 @@ needed to really make this work: (original? ,(syntax-original? stx)) (properties ,@(map (lambda (x) `(,x ,(marshall-object (syntax-property stx x)))) - (syntax-properties stx))) + (syntax-property-symbol-keys stx))) (contents ,(marshall-object (syntax-e stx)))))