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

Minor problems with substring-related tag changes.

Browse source 
* symbols.h (SCM_SUBSTRP): Don't mask off the S bit; that's
exactly what we want to leave in to detect substrings.
(SCM_ROSTRINGP, ROUCHARS): Formatting tweaks.
* tags.h: Fix diagrams and comments describing the S tag bit;
remove vestigial remarks about the D tag bit.
(SCM_TYP7, SCM_TYP7S): Rephrased for readability.
* strings.c: Formatting tweaks.
This commit is contained in:
Jim Blandy 1997-10-25 06:53:47 +00:00
parent 01cddfc1e8
commit c2cb25006b
3 changed files with 22 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/strings.c
View file

@ -370,7 +370,8 @@ scm_make_shared_substring (str, frm, to)
f = SCM_INUM (frm);
t = SCM_INUM (to);
SCM_ASSERT ((f >= 0), frm, SCM_OUTOFRANGE, s_make_shared_substring);
SCM_ASSERT ((f <= t) && (t <= SCM_ROLENGTH (str)), to, SCM_OUTOFRANGE, s_make_shared_substring);
SCM_ASSERT ((f <= t) && (t <= SCM_ROLENGTH (str)), to, SCM_OUTOFRANGE,
s_make_shared_substring);
SCM_NEWCELL (answer);
SCM_NEWCELL (len_str);