diff options
author | Ludovic Courtès <ludo@gnu.org> | 2009-09-25 13:45:16 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2009-09-28 23:32:34 +0200 |
commit | 8cf0dd6104c58f68e0f0ecdf0ab28a033754acf1 (patch) | |
tree | 7a47d3e264690a1761dbbe7118b8853798de3cb5 /libguile/vports.c | |
parent | 3051344be566178999dd8679744e9c3ae9921de4 (diff) | |
download | guile-8cf0dd6104c58f68e0f0ecdf0ab28a033754acf1.tar.gz |
Remove unneeded SMOB/port mark/free procedures.
* libguile/arrays.c (array_mark, array_free): Remove.
(scm_init_arrays): Adjust accordingly.
* libguile/bitvectors.c (bitvector_free): Remove.
(scm_c_make_bitvector): Use `scm_gc_malloc_pointerless ()'.
(scm_init_bitvectors): Adjust accordingly.
* libguile/strports.c (scm_make_stptob): Remove `scm_set_port_mark ()'
call.
* libguile/vports.c (scm_make_sfptob): Likewise.
Diffstat (limited to 'libguile/vports.c')
-rw-r--r-- | libguile/vports.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/libguile/vports.c b/libguile/vports.c index e3db60dc1..4fab2df18 100644 --- a/libguile/vports.c +++ b/libguile/vports.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1995,1996,1998,1999,2000,2001, 2002, 2003, 2006 Free Software Foundation, Inc. +/* Copyright (C) 1995,1996,1998,1999,2000,2001, 2002, 2003, 2006, 2009 Free Software Foundation, Inc. * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public License @@ -220,7 +220,6 @@ scm_make_sfptob () { scm_t_bits tc = scm_make_port_type ("soft", sf_fill_input, sf_write); - scm_set_port_mark (tc, scm_markstream); scm_set_port_flush (tc, sf_flush); scm_set_port_close (tc, sf_close); scm_set_port_input_waiting (tc, sf_input_waiting); |