Re: [Chicken-hackers] [PATCH 4/4] files split-directory: don't split on backslashes on non-windows

[Christian Kellermann]

* Florian Zumbiehl <address@hidden> [130315 07:05]:
> ---
>  files.scm |    2 +-
>  1 files changed, 1 insertions(+), 1 deletions(-)
> 
> diff --git a/files.scm b/files.scm
> index 54beacf..706d103 100644
> --- a/files.scm
> +++ b/files.scm
> @@ -412,7 +412,7 @@ EOF
>  (define split-directory
>    (lambda (loc dir keep?)
>      (##sys#check-string dir loc)
> -    (string-split dir "/\\" keep?) ) )
> +    (string-split dir (if (eq? (build-platform) 'mingw32) "/\\" "/") keep?) 
> ) )
>  
>  ;; Directory string or list only contains path-separators
>  ;; and/or current-directory (".") names.

This should rather use ##sys#windows-platform IMHO.

-- 
In the world, there is nothing more submissive and weak than
water. Yet for attacking that which is hard and strong, nothing can
surpass it. --- Lao Tzu