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

reporting time

Browse Source
This commit is contained in:
Danny Yoo 2011-03-13 17:21:26 -04:00
parent 8cd2085f86
commit fd497d06e0
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
test-browser-evaluate.rkt
View File

@ -17,8 +17,8 @@
(unless (string=? output exp) (unless (string=? output exp)
(printf " error!\n") (printf " error!\n")
(raise-syntax-error #f (format "Expected ~s, got ~s" exp output) (raise-syntax-error #f (format "Expected ~s, got ~s" exp output)
#'stx)))) #'stx)))
(printf " ok\n"))))])) (printf " ok (~a milliseconds)\n" (evaluated-t result))))))]))
(test '(begin (define (f x) (test '(begin (define (f x)