From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Wed, 27 Oct 1993 22:10:14 +0000 (+0000)
Subject: Use CONST instead of const, since the C compiler may not be ANSI
X-Git-Tag: 20090517-FFI~7672
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a3b930a898115922f2fca08052c1648b41dfe22a;p=mit-scheme.git

Use CONST instead of const, since the C compiler may not be ANSI
compliant.
---

diff --git a/v7/src/compiler/machines/C/rules3.scm b/v7/src/compiler/machines/C/rules3.scm
index 8e74bdafe..32d8cbaf0 100644
--- a/v7/src/compiler/machines/C/rules3.scm
+++ b/v7/src/compiler/machines/C/rules3.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: rules3.scm,v 1.2 1993/10/26 17:27:06 gjr Exp $
+$Id: rules3.scm,v 1.3 1993/10/27 22:10:14 gjr Exp $
 
 Copyright (c) 1992-1993 Massachusetts Institute of Technology
 
@@ -572,7 +572,7 @@ MIT in each case. |#
     (LAP "*--stack_pointer = (LONG_TO_UNSIGNED_FIXNUM (1L));\n\t"
 	 ,@(label-statement label)
 	 "{\n\t  "
-	 "static const short sections []\n\t    = {\t0"
+	 "static CONST short sections []\n\t    = {\t0"
 	 ,@(sections->c-sections false 17 (vector->list n-sections))
 	 "};\n\t  "
 	 "long counter = (OBJECT_DATUM (* stack_pointer));\n\t  "