From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 28 Jun 1998 20:31:57 +0000 (+0000)
Subject: Work around compiler bug.
X-Git-Tag: 20090517-FFI~4777
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=239334ecb7ccbb2f9607f211346cadef36db6411;p=mit-scheme.git

Work around compiler bug.
---

diff --git a/v7/src/edwin/syntax.scm b/v7/src/edwin/syntax.scm
index 6f8658df3..dcff47571 100644
--- a/v7/src/edwin/syntax.scm
+++ b/v7/src/edwin/syntax.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: syntax.scm,v 1.81 1998/06/28 20:09:26 cph Exp $
+;;;	$Id: syntax.scm,v 1.82 1998/06/28 20:31:57 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-98 Massachusetts Institute of Technology
 ;;;
@@ -97,11 +97,11 @@
     table))
 
 (define (make-syntax-table #!optional table)
-  (%make-syntax-table
-   (vector-copy
-    (syntax-table/entries (if (or (default-object? table) (not table))
-			      standard-syntax-table
-			      table)))))
+  (let ((table
+	 (if (or (default-object? table) (not table))
+	     standard-syntax-table
+	     table)))
+    (%make-syntax-table (vector-copy (syntax-table/entries table)))))
 
 (define (char->syntax-code syntax-table char)
   ((ucode-primitive char->syntax-code) (syntax-table/entries syntax-table)