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

Unbreak the stepper on `check-expect'.

Browse Source 
All kinds of things expand into (let () ...), so all kinds of things
break.
This commit is contained in:
Mike Sperber 2010-10-19 11:56:24 +02:00
parent ddca8cd29b
commit fd5e9d4d63
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -106,7 +106,7 @@
#'test-engine)))))))) #'test-engine))))))))
'stepper-skipto 'stepper-skipto
(append skipto/third ;; let (append skipto/third ;; let
skipto/third skipto/second ;; unless (it expands into a begin) skipto/third skipto/third ;; unless (it expands into (if (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
))) )))