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

fix missing argument

Browse Source 
closes PR 13429

Merge to 5.3.2
This commit is contained in:
Ryan Culpepper 2013-01-11 16:14:58 -05:00
parent 69ae77a253
commit 9b1b15d110
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/macro-debugger/stepper-text.rkt
View File

@ -80,7 +80,7 @@
(define (show-term stx partition)
(define-values (datum flat=>stx stx=>flat)
(table stx partition 0 'always))
(table stx partition 0 'always #t))
(define identifier-list
(filter identifier? (hash-map stx=>flat (lambda (k v) k))))
(define (pp-size-hook obj display-like? port)

2
collects/macro-debugger/syntax-browser/pretty-helper.rkt
View File

@ -83,7 +83,7 @@
[(and partition (identifier? obj))
(when (and (eq? suffixopt 'all-if-over-limit)
(> (send/i partition partition<%> count) limit))
(call-with-values (lambda () (table stx partition #f 'always))
(call-with-values (lambda () (table stx partition #f 'always abbrev?))
escape))
(let ([lp-datum (make-identifier-proxy obj)])
(hash-set! flat=>stx lp-datum obj)