diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-09-22 18:33:24 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-09-22 18:33:24 +0000 |
commit | 1660782ecfdb3a7eb3a17dea314e383749ddf538 (patch) | |
tree | cd01d8195c83ea3fea09cbc015d429a323f98c6e | |
parent | f151f912939a555a27ab29cfd1127bb36fa4bbc2 (diff) | |
download | guile-1660782ecfdb3a7eb3a17dea314e383749ddf538.tar.gz |
* Removed unused type tag scm_tc7_lvector.
-rw-r--r-- | NEWS | 4 | ||||
-rw-r--r-- | libguile/ChangeLog | 5 | ||||
-rw-r--r-- | libguile/gc.c | 2 | ||||
-rw-r--r-- | libguile/tags.h | 2 |
4 files changed, 9 insertions, 4 deletions
@@ -160,9 +160,11 @@ scm_gensym now only takes one argument. The builtin `gentemp' has now become a primitive. -** Deprecated type tags: scm_tc7_ssymbol, scm_tc7_msymbol, scm_tcs_symbols +** Deprecated type tags: scm_tc7_ssymbol, scm_tc7_msymbol, scm_tcs_symbols, +scm_tc7_lvector There is now only a single symbol type scm_tc7_symbol. +The tag scm_tc7_lvector was not used anyway. Changes since Guile 1.3.4: diff --git a/libguile/ChangeLog b/libguile/ChangeLog index 65c3d9ff1..dfd0e3c49 100644 --- a/libguile/ChangeLog +++ b/libguile/ChangeLog @@ -1,5 +1,10 @@ 2000-09-22 Dirk Herrmann <D.Herrmann@tu-bs.de> + * gc.c (scm_gc_mark, scm_gc_sweep), tags.h: Removed the + scm_tc7_lvector type tag. + +2000-09-22 Dirk Herrmann <D.Herrmann@tu-bs.de> + * eval.c (scm_m_define), evalext.c (scm_m_undefine): Removed dead code. diff --git a/libguile/gc.c b/libguile/gc.c index d9d8dc890..4f35398ec 100644 --- a/libguile/gc.c +++ b/libguile/gc.c @@ -1213,7 +1213,6 @@ gc_mark_nimp: ptr = SCM_CDR (ptr); goto gc_mark_nimp; case scm_tc7_vector: - case scm_tc7_lvector: #ifdef CCLO case scm_tc7_cclo: #endif @@ -1608,7 +1607,6 @@ scm_gc_sweep () scm_must_free ((char *)(SCM_VELTS (scmptr) - 2)); break; case scm_tc7_vector: - case scm_tc7_lvector: #ifdef CCLO case scm_tc7_cclo: #endif diff --git a/libguile/tags.h b/libguile/tags.h index 2b8ec0d48..0493e3582 100644 --- a/libguile/tags.h +++ b/libguile/tags.h @@ -348,11 +348,11 @@ typedef long scm_bits_t; * of these 7 bit tags! */ #define scm_tc7_pws 31 -#define scm_tc7_lvector 39 #ifdef HAVE_ARRAYS #define scm_tc7_llvect 29 #define scm_tc7_uvect 37 +/* free 39 */ #define scm_tc7_fvect 45 #define scm_tc7_dvect 47 #define scm_tc7_cvect 53 |