15 lines
276 B
Scheme
15 lines
276 B
Scheme
|
(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")
|