From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 17 Apr 1990 21:54:56 +0000 (+0000)
Subject: Fix conversion of Scheme argument to fopen.
X-Git-Tag: 20090517-FFI~11428
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=afe6f833948aa1d268ba153ff42f5fcd590ff478;p=mit-scheme.git

Fix conversion of Scheme argument to fopen.
---

diff --git a/v7/src/microcode/sgraph_a.c b/v7/src/microcode/sgraph_a.c
index 620cab0fc..be4c394e2 100644
--- a/v7/src/microcode/sgraph_a.c
+++ b/v7/src/microcode/sgraph_a.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/sgraph_a.c,v 1.11 1990/02/06 22:04:04 pas Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/sgraph_a.c,v 1.12 1990/04/17 21:54:56 cph Exp $
 
 Copyright (c) 1987, 1988, 1989 Massachusetts Institute of Technology
 
@@ -1326,7 +1326,7 @@ DEFINE_PRIMITIVE ("READ-COLORS-FROM-FILE", Prim_read_colors_from_file, 2,2, 0)
   device = (SB_DEVICE_ARG (1));
   CHECK_ARG (2, STRING_P);
 
-  fp = (fopen ((ARG_REF (2)), "r"));
+  fp = (fopen (((char *) (STRING_LOC ((ARG_REF (2)), 0))), "r"));
   if (fp == ((FILE *) 0))
     error_bad_range_arg (2);
   if (feof (fp))
@@ -1357,7 +1357,7 @@ DEFINE_PRIMITIVE ("SAVE-COLORS-IN-FILE", Prim_save_colors_in_file, 2,2, 0)
   PRIMITIVE_HEADER (2);
   device = (SB_DEVICE_ARG (1));
   CHECK_ARG (2, STRING_P);
-  fp = (fopen ((ARG_REF (2)), "w"));
+  fp = (fopen (((char *) (STRING_LOC ((ARG_REF (2)), 0))), "w"));
   if (fp == ((FILE *) 0))
     error_bad_range_arg (2);
   inquire_color_table