From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 15 May 1991 19:36:18 +0000 (+0000)
Subject: Fix typo in last change.
X-Git-Tag: 20090517-FFI~10576
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4f045d24834ca05b05407c6d45908258ec0b29d8;p=mit-scheme.git

Fix typo in last change.
---

diff --git a/v7/src/runtime/unpars.scm b/v7/src/runtime/unpars.scm
index 2df894834..61cf6e13d 100644
--- a/v7/src/runtime/unpars.scm
+++ b/v7/src/runtime/unpars.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/unpars.scm,v 14.19 1991/05/15 18:13:06 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/unpars.scm,v 14.20 1991/05/15 19:36:18 cph Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -311,7 +311,7 @@ MIT in each case. |#
   (cond ((char-set? string)
 	 (*unparse-with-brackets 'CHARACTER-SET string false))
 	((not *slashify?*)
-	 (*unparse-substring string))
+	 (*unparse-string string))
 	(else
 	 (let ((end (string-length string)))
 	   (let ((end*