[ create a new paste ] login | about

Link: http://codepad.org/ocDEBAHY    [ raw code | output | fork ]

AaronMiller - Scheme, pasted on Aug 20:
1
2
3
4
5
6
7
(define-syntax defun
  (syntax-rules ()
  ((defun a b ...) (define a (lambda b ...)))))

(defun get-sum (x y) (+ x y))

(print (get-sum 1 2))


Output:
1
3


Create a new paste based on this one


Comments: