From 7d47498b5ea1ad4685bad954e5407f628f7f5595 Mon Sep 17 00:00:00 2001
From: Eelco Dolstra <e.dolstra@tudelft.nl>
Date: Tue, 13 Apr 2010 13:42:25 +0000
Subject: * Evaluate lets directly (i.e. without desugaring to `rec { attrs...;
   <let-body> = e; }.<let-body>).  This prevents the unnecessary   allocation
 of an attribute set.

---
 src/libexpr/parser.y | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/libexpr/parser.y')

diff --git a/src/libexpr/parser.y b/src/libexpr/parser.y
index c1c17e2b2648..b746e757eb88 100644
--- a/src/libexpr/parser.y
+++ b/src/libexpr/parser.y
@@ -306,7 +306,7 @@ expr_function
   | WITH expr ';' expr_function
     { $$ = new ExprWith(CUR_POS, $2, $4); }
   | LET binds IN expr_function
-    { $2->attrs[data->sLetBody] = $4; $2->recursive = true; $$ = new ExprSelect($2, data->sLetBody); }
+    { $$ = new ExprLet($2, $4); }
   | expr_if
   ;
 
-- 
cgit 1.4.1