summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--json-template.rkt7
1 files 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))))]