Advertisement
Guest User

Untitled

a guest
Oct 19th, 2018
85
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Scheme 0.16 KB | None | 0 0
  1. ;; I don't recommend you do this...
  2.  
  3. (define (my-apply func args)
  4.   (eval `(,func ,@(map (lambda (x) x) args))))
  5.  
  6. (define x 41)
  7. (my-apply '+ '(x 1)) ; ==> 42
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement