From cc6f0237bdb6aa8f4a245e0466fcfd7b0420e24d Mon Sep 17 00:00:00 2001
From: Mikael Djurfeldt <djurfeldt@nada.kth.se>
Date: Fri, 11 Aug 2000 00:45:25 +0000
Subject: [PATCH] * print.c (scm_simple_format): Be case-insensitive for ~A and
 ~S directives.

---
 libguile/print.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/libguile/print.c b/libguile/print.c
index 7bebd6557..225a81bcd 100644
--- a/libguile/print.c
+++ b/libguile/print.c
@@ -988,9 +988,9 @@ SCM_DEFINE (scm_simple_format, "simple-format", 2, 0, 1,
 	  continue;
 	
 	++p;
-	if (*p == 'A')
+	if (*p == 'A' || *p == 'a')
 	  writingp = 0;
-	else if (*p == 'S')
+	else if (*p == 'S' || *p == 's')
 	  writingp = 1;
 	else
 	  continue;