From f0d6558df971ed199f79cdeb5149a7c19cd16777 Mon Sep 17 00:00:00 2001
From: Mirek Kratochvil <exa.exa@gmail.com>
Date: Sun, 23 Oct 2022 23:38:13 +0200
Subject: well

---
 app/Main.hs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'app/Main.hs')

diff --git a/app/Main.hs b/app/Main.hs
index 0a1ba8f..5b9ed07 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -37,3 +37,7 @@ main = do
           ]
   ppr interp
   ppr res
+
+{-
+ppr $ let { Right l = parse lexPrlg "stdin" "c(cc(X)) :- a, b. " ; Right p = parse parsePrlg "stdin" l; clause:_ = map (ast2prlg defaultOps) p; ((StrTable _ strfwd strback),codei) = strtablizePrlg emptystrtable clause } in compileRule (Id (strfwd M.! ":-") 2) (Id (strfwd M.! ",") 2) codei
+ -}
-- 
cgit v1.2.3