From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Wed, 3 May 1989 02:04:20 +0000 (+0000)
Subject: Add a cast from enum_type to int so it can be used to index an array.
X-Git-Tag: 20090517-FFI~12090
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b33a5440c4d0e0665d105b58e5f3dbb51ca7debd;p=mit-scheme.git

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 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 */