From 864f6fad67f8eb00e779872070194bba8d9833bd Mon Sep 17 00:00:00 2001
From: Neil Puttock <n.puttock@gmail.com>
Date: Thu, 25 Sep 2008 23:24:14 +0100
Subject: [PATCH] Fix PLATFORM variable in lily.scm.

---
 scm/lily.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scm/lily.scm b/scm/lily.scm
index 2cca01ddcb..8344f80a8e 100644
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -20,7 +20,7 @@
 (define-public PLATFORM
   (string->symbol
    (string-downcase
-    (utsname:sysname (uname)))))
+    (car (string-tokenize (utsname:sysname (uname)))))))
 
 (define scheme-options-definitions
   `(
-- 
2.39.5