From 8956364387fa25ffeb51e50fc1a83c20fd88af32 Mon Sep 17 00:00:00 2001 From: Stephen Chang Date: Sun, 24 Jul 2011 12:18:09 -0400 Subject: [PATCH] change recon-val in stepper to use render-to-sexpr for non-lazy lists --- collects/stepper/private/reconstruct.rkt | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/collects/stepper/private/reconstruct.rkt b/collects/stepper/private/reconstruct.rkt index 0367c431a5..bd4bac8bcd 100644 --- a/collects/stepper/private/reconstruct.rkt +++ b/collects/stepper/private/reconstruct.rkt @@ -174,8 +174,10 @@ (add1 next-unknown-promise)))])] ; STC: handle lists here, instead of deferring to render-to-sexp fn ; because there may be nested promises - [(null? val) #'empty] - [(list? val) + #;[(null? val) #'empty] + [(and (not (null? val)) + (list? val) + (ormap promise? val)) (with-syntax ([(reconed-vals ...) (map @@ -184,7 +186,9 @@ (if (render-settings-constructor-style-printing? render-settings) #'(#%plain-app list reconed-vals ...) #'`(reconed-vals ...)))] - [(pair? val) + [(and (pair? val) + (or (promise? (car val)) + (promise? (cdr val)))) (with-syntax ([reconed-car (recon-value (car val) render-settings