Want more features on Pastebin? Sign Up, it's FREE!
Guest

Untitled

By: a guest on Feb 26th, 2012  |  syntax: Scheme  |  size: 0.26 KB  |  views: 62  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. (define (is-user-func? token)
  2.   (define (search list)
  3.     (cond ((null? list) #f)
  4.           ((string=? (get-name token) (get-name (car list)))
  5.            (get-name token))
  6.           (else (search (cdr list)))
  7.           )
  8.     )
  9.   (search user-funcs)
  10.   )
clone this paste RAW Paste Data