#| Copyright 2024 Peter McGoron
 |
 | Licensed under the Apache License, Version 2.0 (the "License");
 |
 | you may not use this file except in compliance with the License.
 | You may obtain a copy of the License at
 |
 |     http://www.apache.org/licenses/LICENSE-2.0
 |
 | Unless required by applicable law or agreed to in writing, software
 | distributed under the License is distributed on an "AS IS" BASIS,
 | WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 | See the License for the specific language governing permissions and
 | limitations under the License.
 |#

(define-library (SAHP internal)
  (import (scheme base)
          (srfi 1) (srfi 69) (srfi 128) (srfi 146))
  (export make-new-SAHP extract-SAHP-descriptor
          SAHP-dynamic-scope-parameter
          SAHP-local-scope
          SAHP=?
          SAHP-implementation-not-found-error?
          %SAHP-set/subtypes
          %SAHP-add-to-global/subtypes
          %SAHP/local-scope)
  (cond-expand
    (chicken (import (chicken memory representation))
             (include "SAHP.internal-chicken.scm"))
    (else (include "SAHP.internal-portable.scm")))
  (include "SAHP.internal-common.scm"))