From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Thu, 27 Aug 1992 02:59:06 +0000 (+0000)
Subject: Add missing #\? from string-prefix? call.
X-Git-Tag: 20090517-FFI~9075
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=da1a63c78712e1e9f236b47ea77a1b4e68e54e91;p=mit-scheme.git

Add missing #\? from string-prefix? call.
---

diff --git a/v7/src/edwin/print.scm b/v7/src/edwin/print.scm
index 7ad54e457..e42872e04 100644
--- a/v7/src/edwin/print.scm
+++ b/v7/src/edwin/print.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/print.scm,v 1.6 1992/08/21 23:52:18 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/print.scm,v 1.7 1992/08/27 02:59:06 jinx Exp $
 ;;;
-;;;	Copyright (c) 1991-92 Massachusetts Institute of Technology
+;;;	Copyright (c) 1991-1992 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -103,7 +103,7 @@ Variable LPR-SWITCHES is a list of extra switches (strings) to pass to lpr."
 		   (if (and title
 			    (not (there-exists? switches
 				   (lambda (switch)
-				     (string-prefix "-T" switch)))))
+				     (string-prefix? "-T" switch)))))
 		       (list (string-append "-T \"" title "\""))
 		       '())
 		   switches))))