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
15