change recon-val in stepper to use render-to-sexpr for non-lazy lists

Picked from 8956364 and edited for conflicts due to indentation changes.
This commit is contained in:
Stephen Chang 2011-07-24 12:18:09 -04:00 committed by Eli Barzilay
parent 861301537c
commit 37eca3412f

View File

@ -173,8 +173,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
@ -183,7 +185,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