www

commit c1e98b79915e3b68b7aa09f10c78c9b5fce574cd
parent 241263b9aa37d6c98234d2684f2ff91075b6bba7
Author: Ryan Culpepper <ryanc@racket-lang.org>
Date:   Fri, 11 Jan 2013 16:14:58 -0500

fix missing argument
  closes PR 13429

Merge to 5.3.2

original commit: 9b1b15d110ba77f36e3e9904e20109d78fa6ca62

Diffstat:
M
collects/macro-debugger/stepper-text.rkt
 | 
2
+-
M
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
@@ -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
@@ -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)