;;;;
;;;; source file of the GNU LilyPond music typesetter
;;;;
-;;;; (c) 1998--2007 Jan Nieuwenhuizen <janneke@gnu.org>
+;;;; (c) 1998--2008 Jan Nieuwenhuizen <janneke@gnu.org>
;;;; Han-Wen Nienhuys <hanwen@xs4all.nl>
;; Internationalisation: (_i "to be translated") gets an entry in the
(define-public PLATFORM
(string->symbol
(string-downcase
- (utsname:sysname (uname)))))
+ (car (string-tokenize (utsname:sysname (uname)))))))
(define scheme-options-definitions
`(