fixed syntax browser bug (mailing list 10/10/2007)

svn: r7481

original commit: 324ccee027a6be09a3ad56ed922699eeaa7fbf01
This commit is contained in:
Ryan Culpepper 2007-10-10 23:29:56 +00:00
parent b6e46fabb6
commit 593c71ecd4

View File

@ -23,7 +23,7 @@
(define identifier-list
(filter identifier? (hash-table-map ht:stx=>flat (lambda (k v) k))))
(define (flat=>stx obj)
(hash-table-get ht:flat=>stx obj))
(hash-table-get ht:flat=>stx obj #f))
(define (stx=>flat stx)
(hash-table-get ht:stx=>flat stx))
(define (current-position)