+cos_print_symbol_table (COS_Symbol_Table table)
+{
+ int i;
+ COS_Symbol entry;
+
+ if (table == NULL)
+ table = cos_default_symbol_table;
+
+ printf ("#[symbol_table %lX\tsize = %d", table->size);
+ for (i = 0; i < table->size; i++)
+ {
+ entry = table->data[i];
+ printf ("\n\t%d : ", i);
+ cos_print_object (entry);
+ }
+ printf ("\t]\n");
+ return 0;
+}
+
+int