Replaced call to gh_append2 ()' with gh_append ()'.

1998-06-12  Martin Baulig  <baulig@taurus.uni-trier.de>

	* sysdeps/guile/proclist.c: Replaced call to
	`gh_append2 ()' with `gh_append ()'.
This commit is contained in:
Martin Baulig
1998-06-11 22:45:18 +00:00
committed by Martin Baulig
parent 0d744987ff
commit d9874dca81
18 changed files with 219 additions and 127 deletions

View File

@@ -33,8 +33,10 @@ glibtop_guile_names_shm_limits (void)
list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_SHM_LIMITS; i++)
list = gh_append2 (list, gh_list (gh_str02scm (glibtop_names_shm_limits [i]),
SCM_UNDEFINED));
list = gh_append (list, gh_list
(gh_str02scm (glibtop_names_shm_limits [i]),
SCM_UNDEFINED),
SCM_UNDEFINED);
return list;
}
@@ -48,8 +50,10 @@ glibtop_guile_types_shm_limits (void)
list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_SHM_LIMITS; i++)
list = gh_append2 (list, gh_list (gh_str02scm (gettext (glibtop_types_shm_limits [i])),
SCM_UNDEFINED));
list = gh_append (list, gh_list
(gh_str02scm (gettext (glibtop_types_shm_limits [i])),
SCM_UNDEFINED),
SCM_UNDEFINED);
return list;
}
@@ -63,8 +67,10 @@ glibtop_guile_labels_shm_limits (void)
list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_SHM_LIMITS; i++)
list = gh_append2 (list, gh_list (gh_str02scm (gettext (glibtop_labels_shm_limits [i])),
SCM_UNDEFINED));
list = gh_append (list, gh_list
(gh_str02scm (gettext (glibtop_labels_shm_limits [i])),
SCM_UNDEFINED),
SCM_UNDEFINED);
return list;
}
@@ -78,8 +84,10 @@ glibtop_guile_descriptions_shm_limits (void)
list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_SHM_LIMITS; i++)
list = gh_append2 (list, gh_list (gh_str02scm (gettext (glibtop_descriptions_shm_limits [i])),
SCM_UNDEFINED));
list = gh_append (list, gh_list
(gh_str02scm (gettext (glibtop_descriptions_shm_limits [i])),
SCM_UNDEFINED),
SCM_UNDEFINED);
return list;
}