lib/OS-struct.ss
#lang scheme/base

(require (planet chongkai/sml/ml-package)
         (only-in (planet chongkai/sml/ml-primitives)
                  SOME? SOME SOME-content
                  NONE? NONE
                  define-ml-exn))

(provide OS-struct)

(define-package OS-struct (SysErr-datatype SysErr SysErr? SysErr-content
                                           errorMsg errorName syserror)
  
  (define-ml-exn SysErr #t)
  
  (define (errorMsg s) s)
  (define (errorName s) s)
  (define (syserror s) (SOME s)))