aboutsummaryrefslogtreecommitdiff
path: root/src/name_table.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/name_table.c')
-rw-r--r--src/name_table.c16
1 files changed, 12 insertions, 4 deletions
diff --git a/src/name_table.c b/src/name_table.c
index 3634dd0..3cbaee3 100644
--- a/src/name_table.c
+++ b/src/name_table.c
@@ -230,7 +230,12 @@ IDTYPE NameTable_get_set_id(char *key) {
-// Whether the given 'term' has a name node 'keynode'.
+
+
+
+
+
+// Whether the given 'term' has a node 'keynode'.
int term_has_keynode(VALUE keynode, VALUE term) {
int i;
@@ -266,8 +271,10 @@ int term_has_keynode(VALUE keynode, VALUE term) {
int keynode_exists_in_another_term(VALUE keynode, VALUE *connected_from) {
- // It returns how many occurs in terms connected from global names.
- // Also, the one of the terms is stored in the 'connected_from'.
+ // It returns how times the keynode occurs in
+ // terms connected from global names.
+ // When there are such connected terms,
+ // one of these will be stored in the 'connected_from' as the result.
int i, result=0;
NameList *at;
@@ -300,7 +307,8 @@ int keynode_exists_in_another_term(VALUE keynode, VALUE *connected_from) {
VALUE replace_keynode(VALUE keynode, VALUE term, VALUE heap) {
-
+ // heap[term/keynode]
+
if ((heap == (VALUE)NULL) || (IS_FIXNUM(heap))) {
return heap;
}