guile-prescheme/prescheme/scheme48.scm

;;; Copyright 2022 Andrew Whatson
;;;
;;; Minimal Scheme48 compatibility layer for Pre-Scheme on Guile.
;;;

(define-module (prescheme scheme48)
  #:use-module (srfi srfi-8)
  #:use-module (srfi srfi-60)
  #:use-module (prescheme s48-defenum)
  #:export (arithmetic-shift
            ascii->char
            char->ascii
            unspecific)
  #:re-export (define-enumeration
               enum
               name->enumerand
               enumerand->name
               bitwise-and
               bitwise-ior
               bitwise-xor
               bitwise-not
               receive))

(define arithmetic-shift ash)

(define ascii->char integer->char)
(define char->ascii char->integer)

;; TODO: requires define-enumeration
(define unspecific (const #f))