mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

* print.c (scm_simple_format): Be case-insensitive for ~A and ~S

Browse source 
directives.
This commit is contained in:
Mikael Djurfeldt 2000-08-11 00:45:25 +00:00
parent 528d8ce991
commit cc6f0237bd
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/print.c
View file

@ -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;