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

..

Browse Source 
original commit: de7ed760dcf6f50a0eae65c7213d1b373b8ee17c
This commit is contained in:
Robby Findler 2003-12-12 14:54:43 +00:00
parent 40c5a4f242
commit cf0e4d0093
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -477,8 +477,7 @@ needed to really make this work:
ht))) ht)))
(define (syntax-properties stx) (define (syntax-properties stx)
(let ([is-property? (let ([is-property? (lambda (prop) (syntax-property stx prop))])
(lambda (prop) (syntax-property stx prop))])
(filter is-property? (filter is-property?
'(inferred-name '(inferred-name
bound-in-source bound-in-source