From 86b5f78c579ce5fcc9c96370644c41c35a421070 Mon Sep 17 00:00:00 2001 From: "kr.angelov" Date: Fri, 5 Sep 2014 10:09:43 +0000 Subject: full support for recursive def rules in the C runtime --- src/compiler/GF/Compile/GrammarToPGF.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/compiler/GF/Compile/GrammarToPGF.hs') diff --git a/src/compiler/GF/Compile/GrammarToPGF.hs b/src/compiler/GF/Compile/GrammarToPGF.hs index c5a04230b..b8a79af52 100644 --- a/src/compiler/GF/Compile/GrammarToPGF.hs +++ b/src/compiler/GF/Compile/GrammarToPGF.hs @@ -146,8 +146,8 @@ mkContext scope hyps = mapAccumL (\scope (bt,x,ty) -> let ty' = mkType scope ty else (x:scope,(bt,i2i x,ty'))) scope hyps mkDef gr arity (Just eqs) = Just ([C.Equ ps' (mkExp scope' e) | L _ (ps,e) <- eqs, let (scope',ps') = mapAccumL mkPatt [] ps] - ,generateByteCode gr arity eqs - ) + ,generateByteCode gr arity eqs + ) mkDef gr arity Nothing = Nothing mkArrity (Just a) ty = a -- cgit v1.2.3