Tomas Volf <~@wolfsden.cz> skribis:

> +(define (skip-on-darwin)
> +  (when (string-ci=? "darwin" (vector-ref (uname) 0))
> +    (throw 'untested)))

I changed (vector-ref (uname) 0) to (utsname:sysname (uname)) in this
and other patches.

(We might want to factorize this procedure.  :-))

Ludo’.



Reply via email to