2022-07-15 21:36:02 +00:00
|
|
|
;;; Copyright 2022 Andrew Whatson
|
|
|
|
;;;
|
|
|
|
;;; Minimal Scheme48 compatibility layer for Pre-Scheme on Guile.
|
|
|
|
;;;
|
|
|
|
|
|
|
|
(define-module (prescheme scheme48)
|
2022-07-16 14:23:47 +00:00
|
|
|
#:use-module (srfi srfi-8)
|
|
|
|
#:use-module (srfi srfi-60)
|
2022-07-15 21:36:02 +00:00
|
|
|
#:export (arithmetic-shift
|
|
|
|
define-enumeration
|
|
|
|
enum
|
|
|
|
name->enumerand
|
2022-07-16 14:23:47 +00:00
|
|
|
enumerand->name
|
|
|
|
ascii->char
|
|
|
|
char->ascii
|
|
|
|
unspecific)
|
|
|
|
#:re-export (bitwise-and
|
|
|
|
bitwise-ior
|
|
|
|
bitwise-xor
|
|
|
|
bitwise-not
|
|
|
|
receive))
|
2022-07-15 21:36:02 +00:00
|
|
|
|
|
|
|
(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))
|
2022-07-16 14:23:47 +00:00
|
|
|
|
|
|
|
(define ascii->char (const #f))
|
|
|
|
(define char->ascii (const #f))
|
|
|
|
|
|
|
|
(define unspecific (const #f))
|