From fc3101fcf4cdde319a2541761cf0855ffd4cfd5d Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 17 May 1991 18:45:31 +0000
Subject: [PATCH] Add syntax-table argument to `char->syntax-code' and related
 procedures.  Move definition of `standard-syntax-table' from regexp package
 to edwin top-level package.  Eliminate special initialization of editor
 variable `syntax-table'.

---
 v7/src/edwin/linden.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/v7/src/edwin/linden.scm b/v7/src/edwin/linden.scm
index e72c4162a..7f9f46d5a 100644
--- a/v7/src/edwin/linden.scm
+++ b/v7/src/edwin/linden.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/linden.scm,v 1.120 1991/05/17 18:37:55 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/linden.scm,v 1.121 1991/05/17 18:45:31 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -130,7 +130,7 @@
 	       ;; first expression on that line.
 	       (forward-to-sexp-start (line-start last-sexp 0) last-sexp))))
       (if (char=? #\(
-		  (char->syntax-code syntax-table
+		  (char->syntax-code (ref-variable syntax-table)
 				     (mark-right-char first-sexp)))
 	  ;; The first expression is a list -- don't bother to call
 	  ;; the indent hook.
@@ -156,7 +156,8 @@
 	 (forward-to-sexp-start (mark1+ (parse-state-containing-sexp state))
 				indent-point)))
     (and (let ((syntax
-		(char->syntax-code syntax-table (mark-right-char first-sexp))))
+		(char->syntax-code (ref-variable syntax-table)
+				   (mark-right-char first-sexp))))
 	   (or (char=? #\w syntax)
 	       (char=? #\_ syntax)))
 	 (let ((name (extract-string first-sexp
-- 
2.25.1