From: Taylor R. Campbell <net/mumble/campbell>
Date: Sat, 25 Apr 2009 23:47:08 +0000 (+0000)
Subject: Simplify use of DECORATED-STRING-APPEND.
X-Git-Tag: 20090517-FFI~24
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5df7ee7eb3e8beb1d70dbd596645cecc2e18048c;p=mit-scheme.git

Simplify use of DECORATED-STRING-APPEND.
---

diff --git a/v7/src/runtime/load.scm b/v7/src/runtime/load.scm
index 781b1f315..d3181267b 100644
--- a/v7/src/runtime/load.scm
+++ b/v7/src/runtime/load.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: load.scm,v 14.107 2009/04/25 23:43:31 riastradh Exp $
+$Id: load.scm,v 14.108 2009/04/25 23:47:08 riastradh Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -580,12 +580,11 @@ USA.
 	       (not (car description-lines)))
 	  ""
 	  (begin
-	    (for-each (lambda (string)
-			(guarantee-string string caller))
+	    (for-each (lambda (description-line)
+			(guarantee-string description-line caller))
 		      description-lines)
-	    (string-append
-	     keyword-line
-	     (decorated-string-append "\n  " "" "" description-lines))))
+	    (decorated-string-append "" "\n  " ""
+				     (cons keyword-line description-lines))))
       (string-append keyword-line "\n  (No description.)")))
 
 (define (simple-command-line-parser keyword thunk . description-lines)