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