View/Edit #1:branches

Name(s): branches

1:  ":branches(object) => list of all descendants of object which have children."
2:  if (kids = children(this))
3:    s = {this}
4:    for k in (kids)
5:      s = {@s, @k:branches()}
6:    endfor
7:    return s
8:  else
9:    return {}
10: endif
11: "Last modified by Slacker (#55) on Mon Jun 21 05:46:05 1999 MDT."
12: "This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:04 2002 MDT)."
13: "Last modified by Dax (#789) on Sat Aug 17 14:50:04 2002 MDT."

Verb arguments: this none this
Verb perms: Readable eXecutable NOT-Debug
Verb owned by: Slacker (#55)

You are not logged in.