;;; -*- Mode: Scheme -*-

;;;; Rendezvous Concurrency Abstraction
;;;; MIT Scheme Loader

;;; This code is written by Taylor Campbell and placed in the Public
;;; Domain.  All warranties are disclaimed.

;;; Unfortunately, this code can't be compiled, or even SF-optimized,
;;; due to a problem in the MIT Scheme system whereby macro-generated
;;; macro can't be fasdumped, because they contain references to
;;; environments; however, the variant record type facility works by
;;; macros generating macros.  So this whole thing must run
;;; interpreted in MIT Scheme.

(with-working-directory-pathname
    (directory-pathname (current-load-pathname))
  (lambda ()
    (for-each load
              '(
                "mit-defenum"
                "mit-variant-type"
                "mit-compat"
                "rendezvous"
                "channel"
                "mailbox"
                "placeholder"
                "semaphore"
                ))))