From e428e8be87ba2f08d5fa4172d2b6455dfb8c7ea2 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sun, 28 Jan 2018 16:47:37 -0800 Subject: [PATCH] Change syntactic environments to be records rather than bundles. It's not using the bundle functionality so there's no advantage. --- src/runtime/syntax-environment.scm | 17 ++++++++--------- 1 file changed, 8 insertions(+), 9 deletions(-) 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 + (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))) -- 2.25.1