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

comments added, & 1 test

Browse Source
This commit is contained in:
John Clements 2010-05-28 14:57:18 -07:00
parent 00f143a060
commit 2b7797ad17
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/stepper/private/shared.rkt
View File

@ -470,7 +470,8 @@
;; (symbols 'rebuild 'discard)
;; (syntax? . -> . syntax?)
;; "skips over" part of a tree to find a subtree indicated by the
;; stepper-skipto property. If the traversal argument is 'rebuild, the
;; stepper-skipto property, and applies the transformer to it.
;; If the traversal argument is 'rebuild, the
;; result of transformation is embedded again in the same tree. if the
;; traversal argument is 'discard, the result of the transformation is the
;; result of this function

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

@ -1080,6 +1080,10 @@
:: 9 false (check-expect {(+ 1 1)} 2) -> 9 false (check-expect {2} 2)
:: 9 false true (check-expect {(+ 2 2)} 4) -> 9 false true (check-expect {4} 4))
(t 'simple-check-expect m:beginner
(check-expect (+ 3 4) 7)
:: (check-expect {(+ 3 4)} 7) -> (check-expect {7} 7))
(t1 'check-within
m:upto-int/lam
"(check-within (+ 3 4) (+ 8 10) (+ 10 90)) (check-expect (+ 1 1) 2)(+ 4 5)"