(
define
(
is
-
user
-
func? token
)
(
define
(
search
list
)
(
cond
(
(
null?
list
)
#f
)
(
(
string=?
(
get
-
name token
)
(
get
-
name
(
car
list
)
)
)
(
get
-
name token
)
)
(
else
(
search
(
cdr
list
)
)
)
)
)
(
search user
-
funcs
)
)