use guile conses
authorBT Templeton <bpt@hcoop.net>
Wed, 11 Jul 2012 22:38:35 +0000 (18:38 -0400)
committerRobin Templeton <robin@terpri.org>
Sat, 18 Apr 2015 22:49:08 +0000 (18:49 -0400)
commite642c7183305cc39104aab221adcc12ebec47165
tree07dac1220bdd442fe566052d96ed62e81efd29a5
parent6c8103c11dffe4a4a5ecb6df489021ca39c4f87e
use guile conses

* src/alloc.c (Fcons): Use `scm_cons'.

* src/lisp.h (lisp_cons_tag, XCONS, XSETCONS, struct Lisp_Cons)
  (XCAR_AS_LVALUE, XCDR_AS_LVALUE): Remove.

  (XCAR): Use `scm_car'.
  (XCDR): Use` scm_cdr'.
  (XSETCAR): Use `scm_set_car_x'.
  (XSETCDR): Use `scm_set_cdr_x'.
  (CONSP): Use `scm_is_pair'.

* src/undo.c (truncate_undo_list): Use `sizeof (scm_t_cell)' as the size
  of a cons cell for estimating memory usage.
src/alloc.c
src/lisp.h
src/undo.c