From f9d4e39a12238d48cd7b8ab461055fe48b989967 Mon Sep 17 00:00:00 2001
From: Araq <rumpf_a@web.de>
Date: Sun, 7 Apr 2013 14:12:08 +0200
Subject: bugfix evals.nim

---
 lib/core/macros.nim | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'lib/core')

diff --git a/lib/core/macros.nim b/lib/core/macros.nim
index 6f4d75b9b..4598fa9ea 100644
--- a/lib/core/macros.nim
+++ b/lib/core/macros.nim
@@ -333,9 +333,11 @@ proc nestList*(theProc: TNimrodIdent,
   ## ``[a, b, c]`` is transformed into ``theProc(a, theProc(c, d))``.
   var L = x.len
   result = newCall(theProc, x[L-2], x[L-1])
-  var a = result
   for i in countdown(L-3, 0):
-    a = newCall(theProc, x[i], copyNimTree(a))
+    # XXX the 'copyNimTree' here is necessary due to a bug in the evaluation
+    # engine that would otherwise create an endless loop here. :-(
+    # This could easily user code and so should be fixed in evals.nim somehow.
+    result = newCall(theProc, x[i], copyNimTree(result))
 
 proc treeRepr*(n: PNimrodNode): string {.compileTime.} =
   ## Convert the AST `n` to a human-readable tree-like string.
-- 
cgit 1.4.1-2-gfad0