suzanne.soy/macro-debugger
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

original commit: 9b1b15d110ba77f36e3e9904e20109d78fa6ca62
This commit is contained in:
Ryan Culpepper 2013-01-11 16:14:58 -05:00
parent 241263b9aa
commit c1e98b7991
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 (show-term stx partition)
(define-values (datum flat=>stx stx=>flat) (define-values (datum flat=>stx stx=>flat)
(table stx partition 0 'always)) (table stx partition 0 'always #t))
(define identifier-list (define identifier-list
(filter identifier? (hash-map stx=>flat (lambda (k v) k)))) (filter identifier? (hash-map stx=>flat (lambda (k v) k))))
(define (pp-size-hook obj display-like? port) (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)) [(and partition (identifier? obj))
(when (and (eq? suffixopt 'all-if-over-limit) (when (and (eq? suffixopt 'all-if-over-limit)
(> (send/i partition partition<%> count) 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)) escape))
(let ([lp-datum (make-identifier-proxy obj)]) (let ([lp-datum (make-identifier-proxy obj)])
(hash-set! flat=>stx lp-datum obj) (hash-set! flat=>stx lp-datum obj)