oxmc/libgtop
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Replaced call to gh_append2 ()' with gh_append ()'.

Browse Source 
1998-06-12  Martin Baulig  <baulig@taurus.uni-trier.de>

	* sysdeps/guile/proclist.c: Replaced call to
	`gh_append2 ()' with `gh_append ()'.
This commit is contained in:
Martin Baulig
1998-06-11 22:45:18 +00:00
committed by Martin Baulig
parent 0d744987ff
commit d9874dca81
18 changed files with 219 additions and 127 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -33,10 +33,11 @@ glibtop_guile_names_proc_segment (void)
list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_SEGMENT; i++)
list = gh_append2
list = gh_append
(list, gh_list
(gh_str02scm (glibtop_names_proc_segment [i]),
SCM_UNDEFINED));
SCM_UNDEFINED),
SCM_UNDEFINED);
return list;
}
@@ -50,10 +51,11 @@ glibtop_guile_types_proc_segment (void)
list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_SEGMENT; i++)
list = gh_append2
list = gh_append
(list, gh_list
(gh_str02scm (glibtop_types_proc_segment [i]),
SCM_UNDEFINED));
SCM_UNDEFINED),
SCM_UNDEFINED);
return list;
}
@@ -67,11 +69,12 @@ glibtop_guile_labels_proc_segment (void)
list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_SEGMENT; i++)
list = gh_append2
list = gh_append
(list, gh_list
(gh_str02scm (gettext
(glibtop_labels_proc_segment [i])),
SCM_UNDEFINED));
SCM_UNDEFINED),
SCM_UNDEFINED);
return list;
}
@@ -85,11 +88,12 @@ glibtop_guile_descriptions_proc_segment (void)
list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_PROC_SEGMENT; i++)
list = gh_append2
list = gh_append
(list, gh_list
(gh_str02scm (gettext
(glibtop_descriptions_proc_segment [i])),
SCM_UNDEFINED));
SCM_UNDEFINED),
SCM_UNDEFINED);
return list;
}