Chillcraft/libgtop
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merged bug fixes from stable branch.

Browse Source
This commit is contained in:
Martin Baulig
1998-06-11 23:56:06 +00:00
parent aff6786e71
commit 5e3d6bdf18
18 changed files with 237 additions and 297 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
sysdeps/guile/names/procsegment.c
View File

@@ -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;
}