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

fix stepper rendering of non constructor-style lists

Browse Source 
in stepper/private/reconstruct.rkt
- in recon-value, list case, add quasiquote rendering when constructor-style
  printing = #f
This commit is contained in:
Stephen Chang 2011-04-08 18:41:13 -04:00
parent 4ef7e1fae3
commit d8517af898
3 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/stepper/private/model-settings.rkt
View File

@ -98,7 +98,7 @@
(define fake-lazy-render-settings
(make-render-settings (booleans-as-true/false) ; true-false-printed?
(constructor-style-printing) ; constructor-style-printing?
#t ; constructor-style-printing?
(abbreviate-cons-as-list) ; abbreviate-cons-as-list?
(make-fake-render-to-sexp #t #t #t) ; render-to-sexp
#t ; lifting?

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

@ -173,7 +173,9 @@
(with-syntax
([(reconed-vals ...)
(map (lx (recon-value _ render-settings assigned-name current-so-far)) val)])
#'(#%plain-app list reconed-vals ...))]
(if (render-settings-constructor-style-printing? render-settings)
#'(#%plain-app list reconed-vals ...)
#'`(reconed-vals ...)))]
[(pair? val)
(with-syntax
([reconed-car

8
collects/tests/stepper/through-tests.rkt
View File

@ -105,7 +105,7 @@
(t 'mz1 m:mz
(for-each (lambda (x) x) '(1 2 3))
:: {(for-each (lambda (x) x) (list 1 2 3))} -> (... {1} ...)
:: {(for-each (lambda (x) x) `(1 2 3))} -> (... {1} ...)
:: ... -> (... {2} ...)
:: ... -> (... {3} ...)
:: ... -> {(void)})
@ -486,13 +486,15 @@
(t1 'map
m:mz "(map (lambda (x) x) (list 3 4 5))"
`((before-after ((hilite (map (lambda (x) x) (list 3 4 5))))
`((before-after ((map (lambda (x) x) (hilite (list 3 4 5))))
((map (lambda (x) x) (hilite `(3 4 5)))))
(before-after ((hilite (map (lambda (x) x) `(3 4 5))))
((... (hilite 3) ...)))
(before-after (...)
((... (hilite 4) ...)))
(before-after (...)
((... (hilite 5) ...)))
(before-after (...) ((hilite (list 3 4 5))))))
(before-after (...) ((hilite `(3 4 5))))))
(t1 'quoted-list
m:beginner-wla "'(3 4 5)"