(begin (load "support/chicken.scm")
;;(begin (load "support/sisc.scm")
;;(parameterize ((current-inspector (make-inspector))) (load "support/mzscheme.ss")

(load "datatype.scm")
(load "parsedexp.scm")
(load "pattern.scm")
(load "core.scm")
(load "modules.scm")
)

(define (warning message . messages)
  (let* ((p (current-error-port))
	 (d (lambda (x) (display x p))))
    (for-each d (list  "WARNING: " message " "))
    (write messages p)
    (newline p)))