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

back to old style, not sure why

Browse Source
This commit is contained in:
John Clements 2010-10-20 12:03:22 -07:00
parent a15236ea4f
commit dfe6f78d80
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/test-engine/racket-tests.rkt
View File

@ -106,7 +106,14 @@
#'test-engine)))))))) #'test-engine))))))))
'stepper-skipto 'stepper-skipto
(append skipto/third ;; let (append skipto/third ;; let
skipto/third skipto/third ;; unless (it expands into (if (let-values () ...)) skipto/third skipto/second
;; something funny going on here; I can't see how Mike's
;; fix could ever have worked. Possibly related: this
;; file is still written in the mzscheme language?
;; ... no, that doesn't seem to pan out.
;; okay, I really don't understand why, but it appears
;; that in this context, 'when' is still expanding
;; into a begin, rather than a (let-values () ...)
skipto/cdr skipto/third ;; application of insert-test skipto/cdr skipto/third ;; application of insert-test
'(syntax-e cdr cdr syntax-e car) ;; lambda '(syntax-e cdr cdr syntax-e car) ;; lambda
))) )))