(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)
  )