suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
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
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/stepper/private/reconstruct.rkt
View File

@ -173,8 +173,10 @@
(add1 next-unknown-promise)))])] (add1 next-unknown-promise)))])]
; STC: handle lists here, instead of deferring to render-to-sexp fn ; STC: handle lists here, instead of deferring to render-to-sexp fn
; because there may be nested promises ; because there may be nested promises
[(null? val) #'empty] #;[(null? val) #'empty]
[(list? val) [(and (not (null? val))
(list? val)
(ormap promise? val))
(with-syntax (with-syntax
([(reconed-vals ...) ([(reconed-vals ...)
(map (map
@ -183,7 +185,9 @@
(if (render-settings-constructor-style-printing? render-settings) (if (render-settings-constructor-style-printing? render-settings)
#'(#%plain-app list reconed-vals ...) #'(#%plain-app list reconed-vals ...)
#'`(reconed-vals ...)))] #'`(reconed-vals ...)))]
[(pair? val) [(and (pair? val)
(or (promise? (car val))
(promise? (cdr val))))
(with-syntax (with-syntax
([reconed-car ([reconed-car
(recon-value (car val) render-settings (recon-value (car val) render-settings