Add a cast from enum_type to int so it can be used to index an array.

diff --git a/v7/src/microcode/syntax.c b/v7/src/microcode/syntax.c
index f4e9178dbc6c647c80f795a4e185a1a4649b31b7..2ba32be77d7a8e90a5175256120c98c2514762fb 100644 (file)
--- 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))))))]));
 }
 \f
 /* Parser Initialization */