Do not include prelude.js

[jscl.git] / lispstrack.lisp

diff --git a/lispstrack.lisp b/lispstrack.lisp
index abc1b2b..386caed 100644 (file)
--- a/lispstrack.lisp
+++ b/lispstrack.lisp
@@ -167,6 +167,10 @@
 (define-transformation progn (&rest body)
   `((lambda () ,@body)))
 
+(define-transformation let (bindings &rest body)
+  `((lambda ,(mapcar 'car bindings) ,@body)
+    ,@(mapcar 'cadr bindings)))
+
 ;;; aritmetic primitives
 (define-compilation + (x y)
   (concat "((" (ls-compile x env fenv) ") + (" (ls-compile y env fenv) "))"))