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 ()'.

	* sysdeps/guile/names/*.c: dito.
This commit is contained in:
Martin Baulig
1998-06-11 23:03:07 +00:00
committed by Martin Baulig
parent 2408a0731c
commit aff6786e71
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/msg_limits.c
View File

@@ -33,10 +33,11 @@ glibtop_guile_names_msg_limits (void)
list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_MSG_LIMITS; i++)
list = gh_append2
list = gh_append
(list, gh_list
(gh_str02scm (glibtop_names_msg_limits [i]),
SCM_UNDEFINED));
SCM_UNDEFINED),
SCM_UNDEFINED);
return list;
}
@@ -50,10 +51,11 @@ glibtop_guile_types_msg_limits (void)
list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_MSG_LIMITS; i++)
list = gh_append2
list = gh_append
(list, gh_list
(gh_str02scm (glibtop_types_msg_limits [i]),
SCM_UNDEFINED));
SCM_UNDEFINED),
SCM_UNDEFINED);
return list;
}
@@ -67,11 +69,12 @@ glibtop_guile_labels_msg_limits (void)
list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_MSG_LIMITS; i++)
list = gh_append2
list = gh_append
(list, gh_list
(gh_str02scm (gettext
(glibtop_labels_msg_limits [i])),
SCM_UNDEFINED));
SCM_UNDEFINED),
SCM_UNDEFINED);
return list;
}
@@ -85,11 +88,12 @@ glibtop_guile_descriptions_msg_limits (void)
list = gh_list (SCM_UNDEFINED);
for (i = 0; i < GLIBTOP_MAX_MSG_LIMITS; i++)
list = gh_append2
list = gh_append
(list, gh_list
(gh_str02scm (gettext
(glibtop_descriptions_msg_limits [i])),
SCM_UNDEFINED));
SCM_UNDEFINED),
SCM_UNDEFINED);
return list;
}