Welcome to the CHICKEN Scheme pasting service

117c117
<       (normalize-pathname (make-pathname default-bindir (foreign-value "C_CSC_PROGRAM" c-string))))
---
>       (string-append default-bindir "/" (foreign-value "C_CSC_PROGRAM" c-string)))
119c119
<       (normalize-pathname (make-pathname default-bindir (foreign-value "C_CSI_PROGRAM" c-string))))))
---
>       (string-append default-bindir "/" (foreign-value "C_CSI_PROGRAM" c-string)))))
226c226
<   (if (absolute-pathname? fname)
---
>   (if (string-prefix? "/" fname)
257c257
<   (cond ((absolute-pathname? fname) fname)
---
>   (cond ((string-prefix? "/" fname) fname)
259,261c259
<           (string-intersperse (append prefix (list fname))
<                               (cond-expand (unix "/")
<                                            (windows "\\"))))
---
>           (string-intersperse (append prefix (list fname)) "/"))
1079,1102c1077,1088
<   (unless (absolute-pathname? str)
<     (set! str (make-absolute-pathname (or dir (current-directory)) str)))
<   (cond-expand
<     (unix
<       (string-append
<         "/"
<         (string-intersperse
<           (let loop ((parts (string-split str "/")))
<            (match parts
<              (() '())
<              ((_ ".." . more) (loop more))
<              (("." . more) (loop more))
<              ((part . more) (cons part (loop more)))))
<           "/")))
<     (windows
<       (string-append
<         (string-intersperse
<           (let loop ((parts (string-split str "\\")))
<            (match parts
<              (() '())
<              ((_ ".." . more) (loop more))
<              (("." . more) (loop more))
<              ((part . more) (cons part (loop more)))))
<           "\\")))))
---
>   (unless (string-prefix? "/" str)
>     (set! str (string-append (or dir (current-directory)) "/" str)))
>   (string-append
>     "/"
>     (string-intersperse
>       (let loop ((parts (string-split str "/")))
>         (match parts
>           (() '())
>           ((_ ".." . more) (loop more))
>           (("." . more) (loop more))
>           ((part . more) (cons part (loop more)))))
>       "/")))
1144d1129
<