summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-09-22 18:33:24 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-09-22 18:33:24 +0000
commit1660782ecfdb3a7eb3a17dea314e383749ddf538 (patch)
treecd01d8195c83ea3fea09cbc015d429a323f98c6e
parentf151f912939a555a27ab29cfd1127bb36fa4bbc2 (diff)
downloadguile-1660782ecfdb3a7eb3a17dea314e383749ddf538.tar.gz
* Removed unused type tag scm_tc7_lvector.
-rw-r--r--NEWS4
-rw-r--r--libguile/ChangeLog5
-rw-r--r--libguile/gc.c2
-rw-r--r--libguile/tags.h2
4 files changed, 9 insertions, 4 deletions
diff --git a/NEWS b/NEWS
index d624d4a37..8be7fc6ea 100644
--- a/NEWS
+++ b/NEWS
@@ -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