]> hydra-www.ietfng.org Git - dyna2/commitdiff
merged
authorTim Vieira <tim.f.vieira@gmail.com>
Fri, 28 Jun 2013 21:12:03 +0000 (17:12 -0400)
committerTim Vieira <tim.f.vieira@gmail.com>
Fri, 28 Jun 2013 21:12:03 +0000 (17:12 -0400)
1  2 
src/Dyna/Backend/Python/Backend.hs

index e15544301003c842c50affee2fdf83df015b6b21,160d3e7546d1b48f4b721b7c8757d54b7385722f..74d4faceb055ef5d0a71c6b4d8c45fa0d183e931
@@@ -140,19 -140,20 +140,21 @@@ constants = g
    go ("&",2)     = Just $ PDBS $ infixOp "&"
    go ("%",2)     = Just $ PDBS $ infixOp "%"
    go ("+",2)     = Just $ PDBS $ infixOp "+"
-   go ("mod",2)      = Just $ PDBS $ infixOp "%"
-   go ("abs",1)      = Just $ PDBS $ call "abs"
-   go ("log",_)      = Just $ PDBS $ call "log"
-   go ("exp",1)      = Just $ PDBS $ call "exp"
-   go ("sqrt",1)     = Just $ PDBS $ call "sqrt"
-   go ("split", _)   = Just $ PDBS $ call "split"
-   go ("float", _)   = Just $ PDBS $ call "float"
-   go ("int", _)     = Just $ PDBS $ call "int"
-   go ("pycall", _)  = Just $ PDBS $ call "pycall"
-   go ("getattr", _) = Just $ PDBS $ call "getattr"
-   go ("uniform", _) = Just $ PDBS $ call "uniform"
+   go ("mod",2)   = Just $ PDBS $ infixOp "%"
+   go ("abs",1)   = Just $ PDBS $ call "abs" []
 -  go ("log",1)   = Just $ PDBS $ call "log" []
++  go ("log",_)   = Just $ PDBS $ call "log" []
+   go ("exp",1)   = Just $ PDBS $ call "exp" []
 -
 -
 -
 -  go ("pycall", _) = Just $ PDBS $ call "pycall" []
 -  go ("getattr", 2) = Just $ PDBS $ call "getattr" []
 -
 -
++  go ("sqrt",1)     = Just $ PDBS $ call "sqrt" []
++  go ("getattr", _) = Just $ PDBS $ call "getattr" []
+   go ("uniform", _) = Just $ PDBS $ call "uniform" []
++  go ("split", _)   = Just $ PDBS $ call "split" []
++  go ("float", _)   = Just $ PDBS $ call "float" []
++  go ("int", _)     = Just $ PDBS $ call "int" []
++  go ("getattr", _) = Just $ PDBS $ call "getattr" []
++  go ("pycall", _)  = Just $ PDBS $ call "pycall" []
 +
    go ("<=",2)    = Just $ PDBS $ infixOp "<="
    go ("<",2)     = Just $ PDBS $ infixOp "<"
    go ("=",2)     = Just $ PDBS $ infixOp "=="