scsh-0.6/scsh/system.scm

15 lines
276 B
Scheme
Raw Normal View History

(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")