From 9edce9caa52adb556b7fc2482f005744212e2fc6 Mon Sep 17 00:00:00 2001
From: Ekaitz Zarraga <ekaitz@elenq.tech>
Date: Mon, 12 Aug 2024 10:53:53 +0200
Subject: Full recipe parsing to a structure

---
 cook/debug.sld | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'cook/debug.sld')

diff --git a/cook/debug.sld b/cook/debug.sld
index 6b7ef33..638c13a 100644
--- a/cook/debug.sld
+++ b/cook/debug.sld
@@ -26,6 +26,9 @@
          (list 'step (map cook->list (step-elements y))))
         ((hash-table? y)
          (list 'metadata (cook->list (hash-table->alist y))))
+        ((recipe? y)
+         (list 'recipe (cook->list (recipe-metadata y))
+                       (cook->list (recipe-body y))))
         ((list? y)
          (map cook->list y))
         (else y)))))
-- 
cgit v1.2.3