From f841dc78b0cc64518c8ef0221729b2d4c18d7e54 Mon Sep 17 00:00:00 2001 From: timv Date: Sun, 2 Jun 2013 13:47:58 -0400 Subject: [PATCH] () --- src/Dyna/Backend/Python/Backend.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/Dyna/Backend/Python/Backend.hs b/src/Dyna/Backend/Python/Backend.hs index c71a0ae..2dc3094 100644 --- a/src/Dyna/Backend/Python/Backend.hs +++ b/src/Dyna/Backend/Python/Backend.hs @@ -115,6 +115,8 @@ constants = M.fromList ,(("|",2) , PDBS $ infixOp "|" ) ,(("%",2) , PDBS $ infixOp "%" ) ,(("**",2) , PDBS $ infixOp "**" ) + ,(("==",2) , PDBS $ infixOp "==" ) + ,(("!=",2) , PDBS $ infixOp "!=" ) ,(("<",2) , PDBS $ infixOp "<" ) ,(("<=",2) , PDBS $ infixOp "<=" ) ,((">",2) , PDBS $ infixOp ">" ) @@ -135,7 +137,7 @@ constants = M.fromList ,(("abs",1) , PDBS $ call "abs" ) ,(("log",1) , PDBS $ call "log" ) ,(("exp",1) , PDBS $ call "exp" ) - ,(("eval",1) , PDBS $ call "None;exec " ) + ,(("eval",1) , PDBS $ call "None;exec ") -- XXX not quite what we want, but something like this might -- be nice to have. -- ,(("pair",2) , PDBS $ call "" ) -- 2.50.1