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)
  #:export (arithmetic-shift
            define-enumeration
            enum
            name->enumerand
            enumerand->name
            ascii->char
            char->ascii
            unspecific)
  #:re-export (bitwise-and
               bitwise-ior
               bitwise-xor
               bitwise-not
               receive))

(define arithmetic-shift ash)

;; TODO: port define-enumeration macro
(define-syntax define-enumeration
  (const #f))

(define enum (const #f))
(define name->enumerand (const #f))
(define enumerand->name (const #f))

(define ascii->char (const #f))
(define char->ascii (const #f))

(define unspecific (const #f))