31 lines
764 B
Scheme
31 lines
764 B
Scheme
;;; 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))
|