Differences

This shows you the differences between two versions of the page.

Link to this comparison view

Both sides previous revisionPrevious revision
teaching:primitivas [2010/11/15 15:11] – etanterteaching:primitivas [2016/06/13 10:54] (current) – etanter
Line 11: Line 11:
 ;;; primitives ;;; primitives
 (define *primitives* (define *primitives*
-  `((+       ,(lambda args (apply + args))) +  `((+       ,+) 
-    (-       ,(lambda args (apply - args))) +    (-       ,-) 
-    (*       ,(lambda args (apply * args))) +    (*       ,*) 
-    (/       ,(lambda args (apply / args))) +    (/       ,/) 
-    (=       ,(lambda args (apply = args))) +    (=       ,=) 
-    (<       ,(lambda args (apply < args))) +    (<       ,<) 
-    (>       ,(lambda args (apply > args))) +    (>       ,>) 
-    (zero?   ,(lambda args (apply zero? args))) +    (zero?   ,zero?) 
-    (not     ,(lambda args (apply not args)))+    (not     ,not)
     (and     ,(lambda args (apply (lambda (x y) (and x y)) args)))     (and     ,(lambda args (apply (lambda (x y) (and x y)) args)))
     (or      ,(lambda args (apply (lambda (x y) (or x y)) args)))     (or      ,(lambda args (apply (lambda (x y) (or x y)) args)))