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

may have fixed cond in stepper tests

Browse Source 
(cherry picked from commit 60dabc8ad7)
This commit is contained in:
John Clements 2010-10-19 17:45:43 -07:00 committed by Ryan Culpepper
parent 5f7993c6db
commit c05b501f1b
3 changed files with 34 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/stepper/private/annotate.rkt
View File

@ -146,10 +146,11 @@
[rewritten [rewritten
(kernel:kernel-syntax-case stx #f (kernel:kernel-syntax-case
stx
#f
; cond : ; cond :
[(if test (begin then) else-stx) [(#%if test (#%let () then) else-stx)
(let ([origin (syntax-property stx 'origin)] (let ([origin (syntax-property stx 'origin)]
[rebuild-if [rebuild-if
(lambda (new-cond-test) (lambda (new-cond-test)

4
collects/stepper/private/macro-unwind.rkt
View File

@ -244,7 +244,7 @@
(syntax-property stx 'user-source)) (syntax-property stx 'user-source))
(eq? user-position (eq? user-position
(syntax-property stx 'user-position))) (syntax-property stx 'user-position)))
(syntax-case stx (if begin) (syntax-case stx (if begin let-values)
;; the else clause disappears when it's a ;; the else clause disappears when it's a
;; language-inserted else clause ;; language-inserted else clause
[(if test result) [(if test result)
@ -254,7 +254,7 @@
(loop (syntax else-clause)))] (loop (syntax else-clause)))]
;; else clause appears momentarily in 'before,' even ;; else clause appears momentarily in 'before,' even
;; though it's a 'skip-completely' ;; though it's a 'skip-completely'
[(begin . rest) null] [(let-values () . rest) null]
[else-stx [else-stx
(error 'unwind-cond (error 'unwind-cond
"expected an if, got: ~.s" "expected an if, got: ~.s"

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

@ -13,8 +13,7 @@
"model-settings.ss" "model-settings.ss"
"shared.ss" "shared.ss"
"my-macros.ss" "my-macros.ss"
(for-syntax scheme/base) (for-syntax scheme/base))
#;(file "/Users/clements/clements/scheme-scraps/eli-debug.ss"))
(provide/contract (provide/contract
[reconstruct-completed (syntax? [reconstruct-completed (syntax?