1 files changed, 9 insertions, 3 deletions
diff --git a/tests/common.tl b/tests/common.tl
index c0dda285..a61c0ff1 100644
--- a/tests/common.tl
+++ b/tests/common.tl
@@ -23,6 +23,12 @@
 (defmacro mtest (. pairs)
   ^(progn ,*(mapcar (op cons 'test) (tuples 2 pairs))))
 
-(defun osname ()
-  (with-stream (u (open-command "(uname -o || uname) 2> /dev/null"))
-    (get-line u)))
+(defun os-symbol ()
+  (let ((u (uname)))
+    [(orf (iff (f^ #/Linux/) (ret :linux))
+          (iff (f^ #/SunOS/) (ret :solaris))
+          (iff (f^ #/CYGWIN/) (ret :cygwin))
+          (iff (f^ #/CYGNAL/) (ret :cygnal))
+          (iff (f^ #/Darwin/) (ret :macos))
+          (ret :unknown))
+     u.sysname]))