;;;; system-information + get-host-name


(module system-information (system-information get-host-name)
  (import (scheme) (chicken base) (chicken fixnum) (chicken foreign))
  (cond-expand
    (unix (include "unix.scm"))
    (windows (include "windows.scm"))))