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

trying to fight runtime errors

Browse Source
This commit is contained in:
Danny Yoo 2012-10-23 17:53:44 -06:00
parent 433a73aefa
commit 6cb8309ea0
1 changed files with 16 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/browser-harness.rkt
View File

@ -105,10 +105,12 @@
[(_ original-source-file-path original-expected-file-path) [(_ original-source-file-path original-expected-file-path)
(with-syntax ([stx stx] (with-syntax ([stx stx]
[source-file-path (parameterize ([current-directory [source-file-path (parameterize ([current-directory
(current-load-relative-directory)]) (or (current-load-relative-directory)
(current-directory))])
(normalize-path (syntax-e #'original-source-file-path)))] (normalize-path (syntax-e #'original-source-file-path)))]
[expected-file-path (parameterize ([current-directory [expected-file-path (parameterize ([current-directory
(current-load-relative-directory)]) (or (current-load-relative-directory)
(current-directory))])
(normalize-path (syntax-e #'original-expected-file-path)))]) (normalize-path (syntax-e #'original-expected-file-path)))])
(quasisyntax/loc #'stx (quasisyntax/loc #'stx
(test/loc original-source-file-path source-file-path (test/loc original-source-file-path source-file-path