Small bugfixes.

This commit is contained in:
Martin Baulig
1998-05-22 23:24:06 +00:00
parent 26628a6214
commit c67ba32006
2 changed files with 7 additions and 1 deletions

View File

@@ -90,6 +90,8 @@ glibtop_boot_guile_names (void)
("glibtop-types-proc_uid", glibtop_guile_types_proc_uid);
gh_new_procedure0_0
("glibtop-types-proc_mem", glibtop_guile_types_proc_mem);
gh_new_procedure0_0
("glibtop-types-proc_time", glibtop_guile_types_proc_time);
gh_new_procedure0_0
("glibtop-types-proc_signal", glibtop_guile_types_proc_signal);
gh_new_procedure0_0
@@ -125,6 +127,8 @@ glibtop_boot_guile_names (void)
("glibtop-labels-proc_uid", glibtop_guile_labels_proc_uid);
gh_new_procedure0_0
("glibtop-labels-proc_mem", glibtop_guile_labels_proc_mem);
gh_new_procedure0_0
("glibtop-labels-proc_time", glibtop_guile_labels_proc_time);
gh_new_procedure0_0
("glibtop-labels-proc_signal", glibtop_guile_labels_proc_signal);
gh_new_procedure0_0
@@ -159,6 +163,8 @@ glibtop_boot_guile_names (void)
("glibtop-descriptions-proc_uid", glibtop_guile_descriptions_proc_uid);
gh_new_procedure0_0
("glibtop-descriptions-proc_mem", glibtop_guile_descriptions_proc_mem);
gh_new_procedure0_0
("glibtop-descriptions-proc_time", glibtop_guile_descriptions_proc_time);
gh_new_procedure0_0
("glibtop-descriptions-proc_signal", glibtop_guile_descriptions_proc_signal);
gh_new_procedure0_0

View File

@@ -53,7 +53,7 @@ glibtop_guile_types_proclist (void)
for (i = 0; i < GLIBTOP_MAX_PROCLIST; i++)
list = gh_append2
(list, gh_list
(gh_str02scm (glibtop_labels_proclist [i]),
(gh_str02scm (glibtop_types_proclist [i]),
SCM_UNDEFINED));
return list;