~ chicken-core (chicken-5) b1466b0c973df9a57ff9a372cc181a5b15f294b5

commit b1466b0c973df9a57ff9a372cc181a5b15f294b5
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Tue Dec 26 13:28:19 2017 +1300
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Tue Dec 26 13:28:19 2017 +1300

    Fix csc tests on Windows
    
    Commit c8b0c723 introduced a "-compiler" switch to the csc commands in
    csc-tests.scm, but its value needs to be fixed-up based on the platform
    so that the correct directory separator is used on Windows (as was
    already done for csc).

diff --git a/tests/csc-tests.scm b/tests/csc-tests.scm
index 01381aca..b7816f6c 100644
--- a/tests/csc-tests.scm
+++ b/tests/csc-tests.scm
@@ -5,9 +5,14 @@
         (chicken process-context)
         (chicken string))
 
-(define (abs x) (make-pathname (current-directory) x))
-(define (run x . args) (system* (string-intersperse (cons (abs x) args))))
-(define (csc . args) (apply run "../csc" "-v" "-compiler ../chicken" "-I.." "-libdir .." args))
+(define (realpath x)
+  (normalize-pathname (make-pathname (current-directory) x)))
+
+(define (run x . args)
+  (system* (string-intersperse (cons (realpath x) args))))
+
+(define (csc . args)
+  (apply run "../csc" "-v" "-I.." "-compiler" (realpath "../chicken") "-libdir" ".." args))
 
 (csc "null.scm" "-t")
 (assert (file-exists? "null.c"))