Eli Zaretskii <e...@gnu.org> skribis: >> From: l...@gnu.org (Ludovic Courtès) >> Cc: guile-devel@gnu.org >> Date: Thu, 12 Jun 2014 21:48:48 +0200 >> >> >> >> +(define %null-device >> >> >> + ;; On Windows (MinGW), /dev/null does not exist and we must instead >> >> >> + ;; use NUL. Note that file system procedures automatically >> >> >> translate >> >> >> + ;; /dev/null, so this variable is only useful for shell snippets. >> >> >> + (if (file-exists? "/dev/null") >> >> >> + "/dev/null" >> >> >> + "NUL")) >> >> > >> >> > Not sure this is a good idea: I can create a file /dev/null on >> >> > Windows, but that doesn't mean it is my null device. >> >> >> >> Yes, but using %host-type isn’t perfect either, no? What would you >> >> prefer? >> > >> > How about testing if the absolute name of the current directory starts >> > with a drive letter? >> >> Like (string-match "^[a-zA-Z]:[/\\]" (getcwd)) ? > > Yes.
Pushed, thanks. Ludo’.
