From ce4a5e99734a005438426c4d2d02de180bc4b41d Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Fri, 19 Dec 2014 19:19:44 +1100
Subject: Called functions no longer transfer name edges so garbage collection
 works properly

---
 src/Grasp/Interpreter.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Grasp')

diff --git a/src/Grasp/Interpreter.hs b/src/Grasp/Interpreter.hs
index 82304c1..20d4bd2 100644
--- a/src/Grasp/Interpreter.hs
+++ b/src/Grasp/Interpreter.hs
@@ -275,7 +275,7 @@ callI = do
     ae' <- return (map (\x -> GE.mk (GN.toNode calledNode, GE.toDest x, GE.toLabel x)) ae)
 
     GMonad.insNodes sn'
-    GMonad.insEdges (se' ++ ae')
+    GMonad.insEdges ((filter ((/= (EL.mk "name")) . GE.toLabel) se') ++ ae')
 
     GMonad.pushIP calledNode
 
-- 
cgit