@@ -941,7 +941,8 @@ table fixes
941 = [[prefix "-" (\fc x -> PApp fc (PRef fc (UN "-"))
941 = [[prefix "-" (\fc x -> PApp fc (PRef fc (UN "-"))
942 [pexp (PApp fc (PRef fc (UN "fromInteger")) [pexp (PConstant (I 0))]), pexp x])]]
942 [pexp (PApp fc (PRef fc (UN "fromInteger")) [pexp (PConstant (I 0))]), pexp x])]]
943 ++ toTable (reverse fixes) ++
943 ++ toTable (reverse fixes) ++
944− [[binary "=" (\fc x y -> PEq fc x y) AssocLeft],
945+ [binary "=" (\fc x y -> PEq fc x y) AssocLeft],
945 [binary "->" (\fc x y -> PPi expl (MN 42 "__pi_arg") x y) AssocRight]]
946 [binary "->" (\fc x y -> PPi expl (MN 42 "__pi_arg") x y) AssocRight]]
947toTable fs = map (map toBin)
948toTable fs = map (map toBin)
@@ -954,10 +955,13 @@ toTable fs = map (map toBin)
954 assoc (Infixr _) = AssocRight
955 assoc (Infixr _) = AssocRight
955 assoc (InfixN _) = AssocNone
956 assoc (InfixN _) = AssocNone
957−binary name f assoc = Infix (do { reservedOp name; fc <- pfc;
958+binary name f assoc = Infix (do reservedOp name; fc <- pfc;
958− return (f fc) }) assoc
959+ return (f fc)) assoc
959−prefix name f = Prefix (do { reservedOp name; fc <- pfc;
960+prefix name f = Prefix (do reservedOp name; fc <- pfc;
960− return (f fc) })
961+ return (f fc))
962+backtick = Infix (do lchar '`'; n <- pfName; lchar '`'
964+ return (\x y -> PApp fc (PRef fc n) [pexp x, pexp y])) AssocNone
962--------- Data declarations ---------
966--------- Data declarations ---------