diff options
Diffstat (limited to 'sysdeps/guile/names/swap.c')
-rw-r--r-- | sysdeps/guile/names/swap.c | 23 |
1 files changed, 16 insertions, 7 deletions
diff --git a/sysdeps/guile/names/swap.c b/sysdeps/guile/names/swap.c index e5d477d4..7e04d533 100644 --- a/sysdeps/guile/names/swap.c +++ b/sysdeps/guile/names/swap.c @@ -33,7 +33,10 @@ glibtop_guile_names_swap (void) list = gh_list (SCM_UNDEFINED); for (i = 0; i < GLIBTOP_MAX_SWAP; i++) - list = gh_append2 (list, gh_list (gh_str02scm (glibtop_names_swap [i]), SCM_UNDEFINED)); + list = gh_append (list, gh_list + (gh_str02scm (glibtop_names_swap [i]), + SCM_UNDEFINED), + SCM_UNDEFINED); return list; } @@ -47,8 +50,10 @@ glibtop_guile_types_swap (void) list = gh_list (SCM_UNDEFINED); for (i = 0; i < GLIBTOP_MAX_SWAP; i++) - list = gh_append2 (list, gh_list (gh_str02scm (gettext (glibtop_types_swap [i])), - SCM_UNDEFINED)); + list = gh_append (list, gh_list + (gh_str02scm (gettext (glibtop_types_swap [i])), + SCM_UNDEFINED), + SCM_UNDEFINED); return list; } @@ -62,8 +67,10 @@ glibtop_guile_labels_swap (void) list = gh_list (SCM_UNDEFINED); for (i = 0; i < GLIBTOP_MAX_SWAP; i++) - list = gh_append2 (list, gh_list (gh_str02scm (gettext (glibtop_labels_swap [i])), - SCM_UNDEFINED)); + list = gh_append (list, gh_list + (gh_str02scm (gettext (glibtop_labels_swap [i])), + SCM_UNDEFINED), + SCM_UNDEFINED); return list; } @@ -77,8 +84,10 @@ glibtop_guile_descriptions_swap (void) list = gh_list (SCM_UNDEFINED); for (i = 0; i < GLIBTOP_MAX_SWAP; i++) - list = gh_append2 (list, gh_list (gh_str02scm (gettext (glibtop_descriptions_swap [i])), - SCM_UNDEFINED)); + list = gh_append (list, gh_list + (gh_str02scm (gettext (glibtop_descriptions_swap [i])), + SCM_UNDEFINED), + SCM_UNDEFINED); return list; } |