From 4e206241aeaee801de8e1d0b86048ecc462b27eb Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Thu, 16 Jun 2011 23:46:19 +0200
Subject: Improve dictionary resolution efficiency a bit.

---
 json-template.rkt | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/json-template.rkt b/json-template.rkt
index 0629178..384f31f 100644
--- a/json-template.rkt
+++ b/json-template.rkt
@@ -217,9 +217,10 @@
           [(dict? context)
            (let ([y (dict-ref context
                               (car path)
-                              (dict-ref context
-                                        (string->symbol (car path))
-                                        nothing))])
+                              (λ ()
+                                (dict-ref context
+                                          (string->symbol (car path))
+                                          nothing)))])
              (if (eq? y nothing)
                  (values #f #f)
                  (resolve-path-in-object y (cdr path))))]
-- 
cgit v1.2.3