diff options
Diffstat (limited to 'sysdeps/guile/names/prockernel.c')
-rw-r--r-- | sysdeps/guile/names/prockernel.c | 20 |
1 files changed, 12 insertions, 8 deletions
diff --git a/sysdeps/guile/names/prockernel.c b/sysdeps/guile/names/prockernel.c index 0de1d334..31e7b13b 100644 --- a/sysdeps/guile/names/prockernel.c +++ b/sysdeps/guile/names/prockernel.c @@ -33,10 +33,11 @@ glibtop_guile_names_proc_kernel (void) list = gh_list (SCM_UNDEFINED); for (i = 0; i < GLIBTOP_MAX_PROC_KERNEL; i++) - list = gh_append2 + list = gh_append (list, gh_list (gh_str02scm (glibtop_names_proc_kernel [i]), - SCM_UNDEFINED)); + SCM_UNDEFINED), + SCM_UNDEFINED); return list; } @@ -50,10 +51,11 @@ glibtop_guile_types_proc_kernel (void) list = gh_list (SCM_UNDEFINED); for (i = 0; i < GLIBTOP_MAX_PROC_KERNEL; i++) - list = gh_append2 + list = gh_append (list, gh_list (gh_str02scm (glibtop_types_proc_kernel [i]), - SCM_UNDEFINED)); + SCM_UNDEFINED), + SCM_UNDEFINED); return list; } @@ -67,11 +69,12 @@ glibtop_guile_labels_proc_kernel (void) list = gh_list (SCM_UNDEFINED); for (i = 0; i < GLIBTOP_MAX_PROC_KERNEL; i++) - list = gh_append2 + list = gh_append (list, gh_list (gh_str02scm (gettext (glibtop_labels_proc_kernel [i])), - SCM_UNDEFINED)); + SCM_UNDEFINED), + SCM_UNDEFINED); return list; } @@ -85,11 +88,12 @@ glibtop_guile_descriptions_proc_kernel (void) list = gh_list (SCM_UNDEFINED); for (i = 0; i < GLIBTOP_MAX_PROC_KERNEL; i++) - list = gh_append2 + list = gh_append (list, gh_list (gh_str02scm (gettext (glibtop_descriptions_proc_kernel [i])), - SCM_UNDEFINED)); + SCM_UNDEFINED), + SCM_UNDEFINED); return list; } |