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’.