aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--json-template.lisp6
1 files changed, 1 insertions, 5 deletions
diff --git a/json-template.lisp b/json-template.lisp
index 5b0a9b8..7aacee6 100644
--- a/json-template.lisp
+++ b/json-template.lisp
@@ -156,21 +156,17 @@
(format stream "~A"
(if filter
(funcall (cdr (assoc filter *template-filters*))
- value)
+ value)
value)))))
(:section
(destructuring-bind (section branch alternative) (cdr thing)
(let ((value (lookup-context contexts section)))
- (print "section")
- (print value)
(expand-template-to-stream (if value branch alternative)
(cons value contexts)
stream))))
(:repeated-section
- (print "repeat")
(destructuring-bind (section branch alternative) (cdr thing)
(let ((value (lookup-context contexts section)))
- (print value)
(if value
(mapc (lambda (ctx)
(expand-template-to-stream branch (cons ctx contexts) stream))