| 103 | } |
| 104 | |
| 105 | rhs_function* lookup_rhs_function(agent* thisAgent, Symbol* name) |
| 106 | { |
| 107 | rhs_function* rf; |
| 108 | |
| 109 | for (rf = thisAgent->rhs_functions; rf != NIL; rf = rf->next) |
| 110 | { |
| 111 | if (rf->name == name) |
| 112 | { |
| 113 | return rf; |
| 114 | } |
| 115 | } |
| 116 | return NIL; |
| 117 | } |
| 118 | |
| 119 | void remove_rhs_function(agent* thisAgent, Symbol* name) /* code from Koss 8/00 */ |
| 120 | { |
no outgoing calls