Source

chicken-installer / setup-api.scm.patch

Full commit
Răzvan Rotaru 9196d90 





1
2
3
4
5
6
7
105c105,108
<   (qs (normalize-pathname str)))
---
>   (let ((np (normalize-pathname str)))
>     (if (and *windows* (equal? (string-ref str 0) #\") (equal? (string-ref str (- (string-length str) 1)) #\"))
>       np
>       (qs np))))