From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 29 Jan 2018 00:47:37 +0000 (-0800)
Subject: Change syntactic environments to be records rather than bundles.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~291
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e428e8be87ba2f08d5fa4172d2b6455dfb8c7ea2;p=mit-scheme.git

Change syntactic environments to be records rather than bundles.

It's not using the bundle functionality so there's no advantage.
---

diff --git a/src/runtime/syntax-environment.scm b/src/runtime/syntax-environment.scm
index 1f6c3d125..bd32effba 100644
--- a/src/runtime/syntax-environment.scm
+++ b/src/runtime/syntax-environment.scm
@@ -28,15 +28,14 @@ USA.
 
 (declare (usual-integrations))
 
-(define syntactic-environment?
-  (make-bundle-interface 'syntactic-environment
-			 '(get-type get-runtime lookup store rename)))
-(define make-senv (bundle-constructor syntactic-environment?))
-(define senv-get-type (bundle-accessor syntactic-environment? 'get-type))
-(define senv-get-runtime (bundle-accessor syntactic-environment? 'get-runtime))
-(define senv-lookup (bundle-accessor syntactic-environment? 'lookup))
-(define senv-store (bundle-accessor syntactic-environment? 'store))
-(define senv-rename (bundle-accessor syntactic-environment? 'rename))
+(define-record-type <syntactic-environment>
+    (make-senv get-type get-runtime lookup store rename)
+    syntactic-environment?
+  (get-type senv-get-type)
+  (get-runtime senv-get-runtime)
+  (lookup senv-lookup)
+  (store senv-store)
+  (rename senv-rename))
 
 (define (senv-type senv)
   ((senv-get-type senv)))