From: David Vázquez <davazp@gmail.com>
Date: Fri, 7 Jun 2013 10:58:15 +0000 (+0100)
Subject: 'If' alternative is optional
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=d76123a32e8d5e5afcf9d0c8f407b731ef34edc5;p=jscl.git

'If' alternative is optional
---

diff --git a/src/compiler.lisp b/src/compiler.lisp
index 15379f7..b7cf7ee 100644
--- a/src/compiler.lisp
+++ b/src/compiler.lisp
@@ -207,7 +207,7 @@
   `(push (list ',name (lambda ,args (block ,name ,@body)))
          *compilations*))
 
-(define-compilation if (condition true false)
+(define-compilation if (condition true &optional false)
   (code "(" (ls-compile condition) " !== " (ls-compile nil)
         " ? " (ls-compile true *multiple-value-p*)
         " : " (ls-compile false *multiple-value-p*)