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

svn: r7481
2007-10-10 23:29:56 +00:00 · 2007-10-10 23:29:56 +00:00 · 324ccee027
commit 324ccee027
parent 48793aaaa4
1 changed files with 1 additions and 1 deletions
--- a/collects/macro-debugger/syntax-browser/pretty-printer.ss
+++ b/collects/macro-debugger/syntax-browser/pretty-printer.ss
@ -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)