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