22 lines
497 B
Scheme
22 lines
497 B
Scheme
|
;;; Copyright 2022 Andrew Whatson
|
||
|
;;;
|
||
|
;;; Minimal Scheme48 compatibility layer for Pre-Scheme on Guile.
|
||
|
;;;
|
||
|
|
||
|
(define-module (prescheme scheme48)
|
||
|
#:export (arithmetic-shift
|
||
|
define-enumeration
|
||
|
enum
|
||
|
name->enumerand
|
||
|
enumerand->name))
|
||
|
|
||
|
(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))
|