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:
parent
861301537c
commit
37eca3412f
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue
Block a user