From 8c9bdd0624efad84bd1a4708d4c8f3c21cb3aae9 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 16 Dec 1986 18:20:24 +0000
Subject: [PATCH] Add `using-syntax' to grab compiler syntax.

---
 v7/src/compiler/back/symtab.scm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/v7/src/compiler/back/symtab.scm b/v7/src/compiler/back/symtab.scm
index 357e612bc..d72da3d85 100644
--- a/v7/src/compiler/back/symtab.scm
+++ b/v7/src/compiler/back/symtab.scm
@@ -37,9 +37,10 @@
 
 ;;;; Symbol Tables
 
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/back/symtab.scm,v 1.37 1986/12/16 06:25:33 cph Exp $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/back/symtab.scm,v 1.38 1986/12/16 18:20:24 cph Exp $
 
 (declare (usual-integrations))
+(using-syntax (access compiler-syntax-table compiler-package)
 
 (define (make-symbol-table)
   (cons "Symbol Table" '()))
@@ -85,7 +86,11 @@
 (define (remove-binding-daemon! binding daemon)
   (vector-set! binding 1 (delq! daemon (vector-ref binding 1))))
 
+;;; end USING-SYNTAX
+)
+
 ;;; Edwin Variables:
 ;;; Scheme Environment: (access lap-package compiler-package)
+;;; Scheme Syntax Table: (access compiler-syntax-table compiler-package)
 ;;; End:
   (vector-set! binding 1 (delq! daemon (vector-ref binding 1))))
\ No newline at end of file
-- 
2.25.1