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
(kernel:kernel-syntax-case stx #f
(kernel:kernel-syntax-case
stx
#f
; cond :
[(if test (begin then) else-stx)
[(#%if test (#%let () then) else-stx)
(let ([origin (syntax-property stx 'origin)]
[rebuild-if
(lambda (new-cond-test)

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

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

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

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