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

fix a stepper bug related to recent change to handling of module-level defines

Browse Source
This commit is contained in:
John Clements 2011-07-06 23:22:19 -07:00
parent 4698e94127
commit 77a31dc2af
2 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/lang/private/teach.rkt
View File

@ -2955,8 +2955,13 @@
[(_ a b) (syntax/loc stx (cons a b))])) [(_ a b) (syntax/loc stx (cons a b))]))
;; For expressions (cdr check via `the-cons'): ;; For expressions (cdr check via `the-cons'):
(lambda (stx) (lambda (stx)
(syntax-case stx () (with-syntax
[(_ a b) (syntax/loc stx (the-cons a b))]))) ([the-cons/tagged (stepper-syntax-property
#'the-cons
'stepper-prim-name
#'cons)])
(syntax-case stx ()
[(_ a b) (syntax/loc stx (the-cons/tagged a b))]))))
(provide signature : (provide signature :
-> mixed one-of predicate combined) -> mixed one-of predicate combined)

4
collects/tests/stepper/test-cases.rkt
View File

@ -1369,7 +1369,7 @@
(t1 'empty-begin (t1 'empty-begin
m:advanced "(begin)" m:advanced "(begin)"
`((error "begin: expected a sequence of expressions after `begin', but nothing's there"))) `((error "begin: expected at least one expression after begin, but nothing's there")))
;;;;;;;;;;;; ;;;;;;;;;;;;
;; ;;
@ -1379,7 +1379,7 @@
(t1 'empty-begin0 (t1 'empty-begin0
m:advanced "(begin0)" m:advanced "(begin0)"
`((error "begin0: expected a sequence of expressions after `begin0', but nothing's there"))) `((error "begin0: expected at least one expression after begin0, but nothing's there")))
(t1 'trivial-begin0 (t1 'trivial-begin0
m:advanced "(begin0 3)" m:advanced "(begin0 3)"