diff options
Diffstat (limited to 'sysdeps/guile/names/procsegment.c')
-rw-r--r-- | sysdeps/guile/names/procsegment.c | 32 |
1 files changed, 14 insertions, 18 deletions
diff --git a/sysdeps/guile/names/procsegment.c b/sysdeps/guile/names/procsegment.c index 5ab51c56..a872bcd1 100644 --- a/sysdeps/guile/names/procsegment.c +++ b/sysdeps/guile/names/procsegment.c @@ -34,10 +34,9 @@ glibtop_guile_names_proc_segment (void) for (i = 0; i < GLIBTOP_MAX_PROC_SEGMENT; i++) list = gh_append - (list, gh_list - (gh_str02scm (glibtop_names_proc_segment [i]), - SCM_UNDEFINED), - SCM_UNDEFINED); + (gh_list (list, + gh_list (gh_str02scm (glibtop_names_proc_segment [i])), + SCM_UNDEFINED)); return list; } @@ -52,10 +51,9 @@ glibtop_guile_types_proc_segment (void) for (i = 0; i < GLIBTOP_MAX_PROC_SEGMENT; i++) list = gh_append - (list, gh_list - (gh_str02scm (glibtop_types_proc_segment [i]), - SCM_UNDEFINED), - SCM_UNDEFINED); + (gh_list (list, + gh_list (gh_str02scm (glibtop_types_proc_segment [i])), + SCM_UNDEFINED)); return list; } @@ -70,11 +68,10 @@ glibtop_guile_labels_proc_segment (void) for (i = 0; i < GLIBTOP_MAX_PROC_SEGMENT; i++) list = gh_append - (list, gh_list - (gh_str02scm (gettext - (glibtop_labels_proc_segment [i])), - SCM_UNDEFINED), - SCM_UNDEFINED); + (gh_list (list, + gh_list (gh_str02scm (gettext + (glibtop_labels_proc_segment [i]))), + SCM_UNDEFINED)); return list; } @@ -89,11 +86,10 @@ glibtop_guile_descriptions_proc_segment (void) for (i = 0; i < GLIBTOP_MAX_PROC_SEGMENT; i++) list = gh_append - (list, gh_list - (gh_str02scm (gettext - (glibtop_descriptions_proc_segment [i])), - SCM_UNDEFINED), - SCM_UNDEFINED); + (gh_list (list, + gh_list (gh_str02scm (gettext + (glibtop_descriptions_proc_segment [i]))), + SCM_UNDEFINED)); return list; } |