From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 26 Mar 1999 01:55:48 +0000 (+0000)
Subject: Fix type error.
X-Git-Tag: 20090517-FFI~4572
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=bbefcb88767fb6f65027cbe44627b3e2f8a982c8;p=mit-scheme.git

Fix type error.
---

diff --git a/v7/src/runtime/ntprm.scm b/v7/src/runtime/ntprm.scm
index d7b7230dd..431660985 100644
--- a/v7/src/runtime/ntprm.scm
+++ b/v7/src/runtime/ntprm.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: ntprm.scm,v 1.29 1999/02/25 22:27:15 cph Exp $
+$Id: ntprm.scm,v 1.30 1999/03/26 01:55:48 cph Exp $
 
 Copyright (c) 1992-1999 Massachusetts Institute of Technology
 
@@ -637,9 +637,9 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
       (define (do-arg index s analysis)
 	(if (cdr analysis)
 	    (begin
-	      (vector-set! result index quote-char)
+	      (string-set! result index quote-char)
 	      (let ((index (do-arg-1 index s)))
-		(vector-set! result index quote-char)
+		(string-set! result index quote-char)
 		(fix:+ index 1)))
 	    (do-arg-1 index s)))
       (define (do-arg-1 index s)
@@ -650,11 +650,11 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 			(if (or (char=? quote-char c)
 				(char=? escape-char c))
 			    (begin
-			      (vector-set! result index escape-char)
-			      (vector-set! result (fix:+ index 1) c)
+			      (string-set! result index escape-char)
+			      (string-set! result (fix:+ index 1) c)
 			      (fix:+ index 2))
 			    (begin
-			      (vector-set! result index c)
+			      (string-set! result index c)
 			      (fix:+ index 1))))))
 	      ((fix:= i n) index))))
       (let loop ((index 0) (strings strings) (analyses analyses))