From: Taylor R. Campbell <net/mumble/campbell>
Date: Mon, 17 Sep 2007 02:31:42 +0000 (+0000)
Subject: Omit superfluous octothorpe from error message for illegal boolean
X-Git-Tag: 20090517-FFI~437
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ee67a9a829779b463f37f166ec8d8a1c3e3e3304;p=mit-scheme.git

Omit superfluous octothorpe from error message for illegal boolean
conditions.
---

diff --git a/v7/src/runtime/parse.scm b/v7/src/runtime/parse.scm
index 1eaca9424..40bda3685 100644
--- a/v7/src/runtime/parse.scm
+++ b/v7/src/runtime/parse.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: parse.scm,v 14.68 2007/09/09 03:09:38 cph Exp $
+$Id: parse.scm,v 14.69 2007/09/17 02:31:42 riastradh Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -719,7 +719,7 @@ USA.
       (write-string string port)))
   (define-parse-error (illegal-boolean string)
     (lambda (string port)
-      (write-string "Ill-formed boolean: #" port)
+      (write-string "Ill-formed boolean: " port)
       (write-string string port)))
   (define-parse-error (illegal-char char)
     (lambda (char port)