diff options
Diffstat (limited to 'sysdeps/guile/names/proclist.c')
-rw-r--r-- | sysdeps/guile/names/proclist.c | 34 |
1 files changed, 15 insertions, 19 deletions
diff --git a/sysdeps/guile/names/proclist.c b/sysdeps/guile/names/proclist.c index fb129e97..764483b3 100644 --- a/sysdeps/guile/names/proclist.c +++ b/sysdeps/guile/names/proclist.c @@ -35,10 +35,9 @@ glibtop_guile_names_proclist (void) for (i = 0; i < GLIBTOP_MAX_PROCLIST; i++) list = gh_append - (list, gh_list - (gh_str02scm (glibtop_names_proclist [i]), - SCM_UNDEFINED), - SCM_UNDEFINED); + (gh_list (list, + gh_list (gh_str02scm (glibtop_names_proclist [i])), + SCM_UNDEFINED)); return list; } @@ -53,11 +52,10 @@ glibtop_guile_types_proclist (void) for (i = 0; i < GLIBTOP_MAX_PROCLIST; i++) list = gh_append - (list, gh_list - (gh_str02scm (glibtop_types_proclist [i]), - SCM_UNDEFINED), - SCM_UNDEFINED); - + (gh_list (list, + gh_list (gh_str02scm (glibtop_types_proclist [i])), + SCM_UNDEFINED)); + return list; } @@ -71,11 +69,10 @@ glibtop_guile_labels_proclist (void) for (i = 0; i < GLIBTOP_MAX_PROCLIST; i++) list = gh_append - (list, gh_list - (gh_str02scm (gettext - (glibtop_labels_proclist [i])), - SCM_UNDEFINED), - SCM_UNDEFINED); + (gh_list (list, + gh_list (gh_str02scm (gettext + (glibtop_labels_proclist [i]))), + SCM_UNDEFINED)); return list; } @@ -90,11 +87,10 @@ glibtop_guile_descriptions_proclist (void) for (i = 0; i < GLIBTOP_MAX_PROCLIST; i++) list = gh_append - (list, gh_list - (gh_str02scm (gettext - (glibtop_descriptions_proclist [i])), - SCM_UNDEFINED), - SCM_UNDEFINED); + (gh_list (list, + gh_list (gh_str02scm (gettext + (glibtop_descriptions_proclist [i]))), + SCM_UNDEFINED)); return list; } |