From b33a5440c4d0e0665d105b58e5f3dbb51ca7debd Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Wed, 3 May 1989 02:04:20 +0000
Subject: [PATCH] Add a cast from enum_type to int so it can be used to index
 an array.

---
 v7/src/microcode/syntax.c | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/v7/src/microcode/syntax.c b/v7/src/microcode/syntax.c
index f4e9178db..2ba32be77 100644
--- a/v7/src/microcode/syntax.c
+++ b/v7/src/microcode/syntax.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/syntax.c,v 1.13 1989/05/01 19:38:42 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/syntax.c,v 1.14 1989/05/03 02:04:20 jinx Exp $
 
 Copyright (c) 1987, 1988, 1989 Massachusetts Institute of Technology
 
@@ -142,8 +142,9 @@ DEFINE_PRIMITIVE ("CHAR->SYNTAX-CODE", Prim_char_to_syntax_code, 2, 2, 0)
   PRIMITIVE_RETURN
     (c_char_to_scheme_char
      (syntax_code_spec
-      [SYNTAX_ENTRY_CODE
-       (SYNTAX_TABLE_REF ((ARG_REF (1)), (arg_ascii_char (2))))]));
+      [((int)
+	(SYNTAX_ENTRY_CODE
+	 (SYNTAX_TABLE_REF ((ARG_REF (1)), (arg_ascii_char (2))))))]));
 }
 
 /* Parser Initialization */
-- 
2.25.1