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

Corrected source/syntax error

Browse Source 
svn: r9475
This commit is contained in:
Kathy Gray 2008-04-25 14:07:04 +00:00
parent 00eb1303e4
commit 764ed78129
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
collects/test-engine/scheme-tests.ss
View File

@ -103,16 +103,16 @@
(let ([test-info (namespace-variable-value (let ([test-info (namespace-variable-value
'test~object #f builder (current-namespace))]) 'test~object #f builder (current-namespace))])
(when test-info (when test-info
(insert test-info (insert-test test-info
(lambda () (lambda ()
(check-values-within (check-values-within
(lambda () test) actual within (lambda () test) actual within
(list #,@(list (syntax-source stx) (list #,@(list #`(quote #,(syntax-source stx))
(syntax-line stx) (syntax-line stx)
(syntax-column stx) (syntax-column stx)
(syntax-position stx) (syntax-position stx)
(syntax-span stx))) (syntax-span stx)))
test-info)))))))] test-info)))))))]
[(_ test actual) [(_ test actual)
(not (eq? (syntax-local-context) 'expression)) (not (eq? (syntax-local-context) 'expression))
(raise-syntax-error 'check-within CHECK-WITHIN-STR stx)] (raise-syntax-error 'check-within CHECK-WITHIN-STR stx)]
@ -145,7 +145,7 @@
(lambda () (lambda ()
(check-values-error (check-values-error
(lambda () test) error (lambda () test) error
(list #,@(list (syntax-source stx) (list #,@(list #`(quote #,(syntax-source stx))
(syntax-line stx) (syntax-line stx)
(syntax-column stx) (syntax-column stx)
(syntax-position stx) (syntax-position stx)