| version 1.110 | | version 1.111 |
|---|
| | |
| /* | | /* |
| * static char *rcsid_object_c = | | * static char *rcsid_object_c = |
| * "$Id: object.c,v 1.110 2005/10/28 23:43:30 akirschbaum Exp $"; | | * "$Id: object.c,v 1.111 2005/11/01 10:08:17 akirschbaum Exp $"; |
| */ | | */ |
| | | |
| /* | | /* |
| | |
| return sum; | | return sum; |
| } | | } |
| | | |
| | | /** |
| | | * Return the outermost environment object for a given object. |
| | | */ |
| | | |
| | | object *object_get_env_recursive (object *op) { |
| | | while (op->env != NULL) |
| | | op = op->env; |
| | | return op; |
| | | } |
| | | |
| /* | | /* |
| * Eneq(@csd.uu.se): Since we can have items buried in a character we need | | * Eneq(@csd.uu.se): Since we can have items buried in a character we need |