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

.

Browse Source 
original commit: 9b4c63e0d2c2f03bc79a48f3f290ec539012dc3b
This commit is contained in:
Robby Findler 2005-01-28 15:05:08 +00:00
parent 03f1ec366d
commit 808fcd7515
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/drscheme/private/syntax-browser.ss
View File

@ -112,7 +112,7 @@ needed to really make this work:
(piece-of-info "Identifier-binding" (identifier-binding 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)))
(let ([properties (syntax-properties stx)]) (let ([properties (syntax-property-symbol-keys stx)])
(unless (null? properties) (unless (null? properties)
(insert/big "Known properties\n") (insert/big "Known properties\n")
(for-each (for-each
@ -518,7 +518,7 @@ needed to really make this work:
(original? ,(syntax-original? stx)) (original? ,(syntax-original? stx))
(properties (properties
,@(map (lambda (x) `(,x ,(marshall-object (syntax-property stx x)))) ,@(map (lambda (x) `(,x ,(marshall-object (syntax-property stx x))))
(syntax-properties stx))) (syntax-property-symbol-keys stx)))
(contents (contents
,(marshall-object (syntax-e stx))))) ,(marshall-object (syntax-e stx)))))