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

* symbols.c (scm_sym2ovcell): Fixed documentation.

Browse source
This commit is contained in:
Mikael Djurfeldt 1996-10-14 03:27:11 +00:00
parent 02aa5a4c2f
commit 49bc24feca
1 changed files with 75 additions and 66 deletions
Download patch file Download diff file Expand all files Collapse all files

19
libguile/symbols.c
View file

@ -146,6 +146,7 @@ scm_sym2vcell (sym, thunk, definep)
{ {
if (definep) if (definep)
{ {
/* Move handle from scm_weak_symhash to scm_symhash. */
*lsymp = SCM_CDR (lsym); *lsymp = SCM_CDR (lsym);
SCM_SETCDR (lsym, SCM_VELTS(scm_symhash)[scm_hash]); SCM_SETCDR (lsym, SCM_VELTS(scm_symhash)[scm_hash]);
SCM_VELTS(scm_symhash)[scm_hash] = lsym; SCM_VELTS(scm_symhash)[scm_hash] = lsym;
@ -160,7 +161,7 @@ scm_sym2vcell (sym, thunk, definep)
} }
/* scm_sym2ovcell /* scm_sym2ovcell
* looks up the symbol in an arbitrary obarray (defaulting to scm_symhash). * looks up the symbol in an arbitrary obarray.
*/ */
SCM SCM
@ -444,9 +445,14 @@ scm_string_to_obarray_symbol(o, s, softp)
SCM answer; SCM answer;
int softness; int softness;
SCM_ASSERT(SCM_NIMP(s) && SCM_ROSTRINGP(s), s, SCM_ARG2, s_string_to_obarray_symbol); SCM_ASSERT(SCM_NIMP(s) && SCM_ROSTRINGP(s), s, SCM_ARG2,
SCM_ASSERT((o == SCM_BOOL_F) || (o == SCM_BOOL_T) || (SCM_NIMP(o) && SCM_VECTORP(o)), s_string_to_obarray_symbol);
o, SCM_ARG1, s_string_to_obarray_symbol); SCM_ASSERT((o == SCM_BOOL_F)
|| (o == SCM_BOOL_T)
|| (SCM_NIMP(o) && SCM_VECTORP(o)),
o,
SCM_ARG1,
s_string_to_obarray_symbol);
softness = ((softp != SCM_UNDEFINED) && (softp != SCM_BOOL_F)); softness = ((softp != SCM_UNDEFINED) && (softp != SCM_BOOL_F));
/* iron out some screwy calling conventions */ /* iron out some screwy calling conventions */
@ -455,7 +461,10 @@ scm_string_to_obarray_symbol(o, s, softp)
else if (o == SCM_BOOL_T) else if (o == SCM_BOOL_T)
o = SCM_BOOL_F; o = SCM_BOOL_F;
vcell = scm_intern_obarray_soft (SCM_ROCHARS(s), (scm_sizet)SCM_ROLENGTH(s), o, softness); vcell = scm_intern_obarray_soft (SCM_ROCHARS(s),
(scm_sizet)SCM_ROLENGTH(s),
o,
softness);
if (vcell == SCM_BOOL_F) if (vcell == SCM_BOOL_F)
return vcell; return vcell;
answer = SCM_CAR (vcell); answer = SCM_CAR (vcell);