Work around compiler bug.

diff --git a/v7/src/edwin/syntax.scm b/v7/src/edwin/syntax.scm
index 6f8658df3ae8375e8182f88703f387f185d72f30..dcff47571055018264e6b7fbcab8ccf0b6855ebb 100644 (file)
--- 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)))))
 \f
 (define (char->syntax-code syntax-table char)
   ((ucode-primitive char->syntax-code) (syntax-table/entries syntax-table)