From 2f0113de662f10310ef451290c413fe7a589dd3f Mon Sep 17 00:00:00 2001
From: Mart Lubbers <mart@martlubbers.net>
Date: Fri, 20 May 2016 16:37:15 +0200
Subject: [PATCH] .

---
 gen.icl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gen.icl b/gen.icl
index b4b9992..082c34d 100644
--- a/gen.icl
+++ b/gen.icl
@@ -159,7 +159,7 @@ instance g Expr where
 		>>| tell [Instr "ajs" [Lit -1] ""]
     g (VarExpr _ (VarDef k fs)) = getAdressbook >>= \ab->case 'Map'.get k ab of
 		Just (ADDR t) = tell [Instr "ldl" [Lit t] ""] >>| mapM_ g fs >>| pure ()
-		_ = liftT (Left $ Error "PANIC: variable and function name clash")
+		_ = liftT (Left $ Error "Higher order functions not implemented")
     g (FunExpr _ k es fs) = 
 		mapM_ g es
 		>>| jump "bsr" k
-- 
2.20.1