From 5224c8b3385d49705e0b858839520544085fc66b Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Fri, 11 Jan 2013 16:14:58 -0500 Subject: [PATCH] fix missing argument closes PR 13429 Merge to 5.3.2 (cherry picked from commit 9b1b15d110ba77f36e3e9904e20109d78fa6ca62) --- collects/macro-debugger/stepper-text.rkt | 2 +- collects/macro-debugger/syntax-browser/pretty-helper.rkt | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/macro-debugger/stepper-text.rkt b/collects/macro-debugger/stepper-text.rkt index 08d0e9380f..0cb3422cde 100644 --- a/collects/macro-debugger/stepper-text.rkt +++ b/collects/macro-debugger/stepper-text.rkt @@ -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) diff --git a/collects/macro-debugger/syntax-browser/pretty-helper.rkt b/collects/macro-debugger/syntax-browser/pretty-helper.rkt index 3573d55189..10329ee244 100644 --- a/collects/macro-debugger/syntax-browser/pretty-helper.rkt +++ b/collects/macro-debugger/syntax-browser/pretty-helper.rkt @@ -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)