rl3/env/larceny.sls

   1 ;; Library to hold basis environment/intialization stuff.
   2
   3 (library
   4  (rl3 env larceny)
   5
   6  (export break error-handler getenv reset-handler os-type system)
   7
   8  (import
   9   (rnrs base)
  10   (only (rnrs lists)
  11         assq member)
  12   (only (rnrs io simple)
  13         display newline write)
  14   (only (larceny load)
  15         require)
  16   (primitives procedure-name error-handler reset getenv larceny-break
  17               make-continuation-inspector
  18               call-with-output-string
  19               with-output-to-string
  20               decode-error
  21               current-continuation-structure
  22               reset-handler system-features system))
  23
  24  (define break larceny-break)
  25
  26  (define os-type
  27    (let ((os-name (assq 'os-name (system-features))))
  28      (cond
  29       ((member os-name '((os-name . "Linux")
  30                          (os-name . "MaxOS X")
  31                          (os-name . "SunOS")))
  32        'unix)
  33       ((member os-name '((os-name . "Win32")))
  34        'windows)
  35       (else
  36        (error 'os-type ": add case for os " os-name)))))
  37
  38
  39  )
  40