guile18/lang/elisp/primitives/system.scm

   1 (define-module (lang elisp primitives system)
   2   #:use-module (lang elisp internals fset))
   3
   4 (fset 'system-name
   5       (lambda ()
   6         (vector-ref (uname) 1)))
   7
   8 (define-public system-type
   9   (let ((uname (vector-ref (uname) 0)))
  10     (if (string=? uname "Linux")
  11         "gnu/linux"
  12         uname)))
  13
  14 (define-public system-configuration "i386-suse-linux") ;FIXME