mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 12:20:20 +02:00
Code Activity

* Use scm_mem2symbol or scm_str2symbol to create symbol objects.

Browse source
This commit is contained in:
Dirk Herrmann 2000-12-08 17:08:34 +00:00
parent 23ade5e759
commit 38ae064c6e
14 changed files with 127 additions and 105 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/unif.c
View file

@ -2523,10 +2523,10 @@ loop:
case scm_tc7_ivect:
return SCM_MAKINUM (-1L);
case scm_tc7_svect:
return SCM_CDR (scm_intern ("s", 1));
return scm_str2symbol ("s");
#ifdef HAVE_LONG_LONGS
case scm_tc7_llvect:
return SCM_CDR (scm_intern ("l", 1));
return scm_str2symbol ("l");
#endif
case scm_tc7_fvect:
return scm_make_real (1.0);