(import-os-error-syscall %gethostname () "scm_gethostname")

(define system-name %gethostname)

(define-record uname
  os-name
  node-name
  release
  version
  machine)

(define-exported-binding "uname-record-type" type/uname)

(import-os-error-syscall uname () "scm_uname")