From: Mart Lubbers <mart@martlubbers.net>
Date: Fri, 20 May 2016 14:37:15 +0000 (+0200)
Subject: .
X-Git-Url: https://git.martlubbers.net/?a=commitdiff_plain;h=2f0113de662f10310ef451290c413fe7a589dd3f;p=cc1516.git

.
---

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