Remove unnecessary progn
authorDavid Vazquez <davazp@gmail.com>
Sat, 16 Feb 2013 15:50:45 +0000 (15:50 +0000)
committerDavid Vazquez <davazp@gmail.com>
Sat, 16 Feb 2013 15:50:45 +0000 (15:50 +0000)
ecmalisp.lisp

index 269b80a..e62d0ef 100644 (file)
          *builtins*))
 
 (defmacro define-builtin (name args &body body)
-  `(progn
-     (define-raw-builtin ,name ,args
-       (let ,(mapcar (lambda (arg) `(,arg (ls-compile ,arg))) args)
-         ,@body))))
+  `(define-raw-builtin ,name ,args
+     (let ,(mapcar (lambda (arg) `(,arg (ls-compile ,arg))) args)
+       ,@body)))
 
 ;;; DECLS is a list of (JSVARNAME TYPE LISPFORM) declarations.
 (defmacro type-check (decls &body body)