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

changing to stepper-syntax-property

Browse Source 
svn: r4761
This commit is contained in:
John Clements 2006-11-03 17:12:04 +00:00
parent 161046127f
commit 0d7c25bbb8
3 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/tests/stepper/annotate-test.ss
View File

@ -661,9 +661,9 @@
(test 'a syntax-e (syntax a-var-0))
(test 'a syntax-e (strip-return-value-wrap (syntax a-var-1)))
(test 'b syntax-e (syntax b-var-0))
(test 'let-bound syntax-property (syntax a-var-0) 'stepper-binding-type)
(test 'let-bound syntax-property (strip-return-value-wrap (syntax a-var-1)) 'stepper-binding-type)
(test 'lambda-bound syntax-property (syntax b-var-0) 'stepper-binding-type)
(test 'let-bound stepper-syntax-property (syntax a-var-0) 'stepper-binding-type)
(test 'let-bound stepper-syntax-property (strip-return-value-wrap (syntax a-var-1)) 'stepper-binding-type)
(test 'lambda-bound stepper-syntax-property (syntax b-var-0) 'stepper-binding-type)
)])))
@ -678,9 +678,9 @@
(syntax-case (namespace-rewrite-expr '(lambda (a) a) mz-namespace) (lambda)
[(lambda (a-var-0) a-var-1)
(begin
(test 'lambda-bound syntax-property (syntax a-var-0) 'stepper-binding-type)
(test 'lambda-bound stepper-syntax-property (syntax a-var-0) 'stepper-binding-type)
(test 'lexical identifier-binding (syntax a-var-0))
(test 'lambda-bound syntax-property (syntax a-var-1) 'stepper-binding-type)
(test 'lambda-bound stepper-syntax-property (syntax a-var-1) 'stepper-binding-type)
(test 'lexical identifier-binding (syntax a-var-1)))])
(syntax-case (namespace-rewrite-expr (datum->syntax-object #'here '(case-lambda ((a) a) ((a b) b))) mz-namespace) (case-lambda)
@ -693,9 +693,9 @@
; [(let-values ([(or-part-0) true-0]) (if or-part-1 or-part-2 rest))
; (begin
; (test 'or-part syntax-e (syntax or-part-0))
; (test 'let-bound syntax-property (syntax or-part-0) 'stepper-binding-type)
; (test 'let-bound stepper-syntax-property (syntax or-part-0) 'stepper-binding-type)
; (test 'or-part syntax-e (syntax or-part-1))
; (test 'let-bound syntax-property (syntax or-part-1) 'stepper-binding-type))])
; (test 'let-bound stepper-syntax-property (syntax or-part-1) 'stepper-binding-type))])
(parameterize ([current-namespace beginner-namespace])
(err/rt-test (eval (car (annotate-exprs-no-break (string->stx-list "(define first 3)")))) exn:user?))

2
collects/tests/stepper/reconstruct-test.ss
View File

@ -265,7 +265,7 @@
(printf "expanded: ~a\n" (syntax-object->datum stx))
(syntax-case stx (if begin #%datum)
[(if dc dc2 stx2)
(printf "stepper-else: ~a\n" (syntax-property stx 'stepper-else))
(printf "stepper-else: ~a\n" (stepper-syntax-property stx 'stepper-else))
]
[stx
(printf "outer thing has wrong shape: ~a\n" (syntax-object->datum (syntax stx)))])))

4
collects/tests/stepper/through-tests.ss
View File

@ -1558,8 +1558,8 @@ exec mred -u "$0" "$@"
"(define (f2c x) x) (convert-gui f2c)" `() ; placeholder
))
#;(run-tests '(begin0))
(run-all-tests)
(run-tests '(mz1))
#;(run-all-tests)
)
;; Local variables: