From de4775bd772703acb02fb1c953e5207be5bc0506 Mon Sep 17 00:00:00 2001
From: Mirek Kratochvil <exa.exa@gmail.com>
Date: Sat, 18 Feb 2023 22:50:23 +0100
Subject: [PATCH] who left that here

---
 app/Builtins.hs | 24 ------------------------
 1 file changed, 24 deletions(-)

diff --git a/app/Builtins.hs b/app/Builtins.hs
index 8539562..b5993a2 100644
--- a/app/Builtins.hs
+++ b/app/Builtins.hs
@@ -6,7 +6,6 @@ import Code
   , Code
   , Datum(..)
   , Dereferenced(..)
-  , Heap(..)
   , Instr(..)
   , Interp(..)
   , InterpFn
@@ -136,29 +135,6 @@ retractall =
       BoundRef _ (Struct id) -> dropProcedure id >> continue
       _ -> prlgError "retractall needs a struct"
 
-call' :: InterpFn
-call' =
-  withArgs [0] $ \[arg] -> do
-    heap@(Heap _ hmap) <- gets (heap . cur)
-    let exec base struct arity = do
-          cur <- gets cur
-          modify $ \s ->
-            s
-              { cur =
-                  cur
-                    { gol =
-                        [Call, Goal, U struct] ++
-                        [U $ hmap M.! (base + i) | i <- [1 .. arity]] ++ gol cur
-                    }
-              }
-          continue
-    case derefHeap heap arg of
-      BoundRef addr struct@(Struct IR.Id {IR.arity = arity}) ->
-        exec addr struct arity
-      BoundRef addr (Atom a) ->
-        exec addr (Struct IR.Id {IR.arity = 0, IR.str = a}) 0
-      _ -> prlgError "not callable"
-
 exec' :: (Code -> Code) -> InterpFn
 exec' fgol =
   withArgs [0] $ \[arg] -> do