From aea8285938890034003e9ba26d7d747fb5a9ba96 Mon Sep 17 00:00:00 2001
From: "Taylor R. Campbell" <net/mumble/campbell>
Date: Thu, 18 Jan 2007 02:03:39 +0000
Subject: [PATCH] In PROMPT-FOR-EXPRESSION, don't pass the default expression
 through WRITE-TO-STRING before handing it to PROMPT-FOR-STRING, because
 PROMPT-FOR-STRING already does that.

---
 v7/src/edwin/evlcom.scm | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/v7/src/edwin/evlcom.scm b/v7/src/edwin/evlcom.scm
index 6ebd4643d..901109162 100644
--- a/v7/src/edwin/evlcom.scm
+++ b/v7/src/edwin/evlcom.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: evlcom.scm,v 1.73 2007/01/05 21:19:23 cph Exp $
+$Id: evlcom.scm,v 1.74 2007/01/18 02:03:39 riastradh Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -278,9 +278,8 @@ Has no effect if evaluate-in-inferior-repl is false."
     (read-from-string
      (apply prompt-for-string
 	    prompt
-	    (if (default-object? default)
-		#f
-		(write-to-string default))
+	    (and (not (default-object? default))
+		 default)
 	    'MODE
 	    (lambda (buffer)
 	      (set-buffer-major-mode! buffer
-- 
2.25.1