21 lines
497 B
Scheme
21 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))
|