Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (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)
- )
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement