diff options
| author |  mayero <mayero@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-02-08 23:35:50 +0000 |
|---|---|---|
| committer | mayero <mayero@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-02-08 23:35:50 +0000 |
| commit | e0554d32bf6a5deedd586b66c48aaa78b11ba0e7 (patch) | |
| tree | 698b8e1a4d323badea8dd0fbac816d0ab2d61527 /parsing | |
| parent | 88b85cce4234e7a7ca48e45c83d9d7504d200ccd (diff) | |
modif de la syntax: assoc a droite pour Ring
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1359 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/g_rsyntax.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/parsing/g_rsyntax.ml b/parsing/g_rsyntax.ml index 03f9fcbc6..b9902e103 100644 --- a/parsing/g_rsyntax.ml +++ b/parsing/g_rsyntax.ml @@ -20,7 +20,7 @@ let r_of_int n dloc = else if n = 1 then ast1 else - Node(dloc,"APPLIST", [astp; mk_r (n-1); ast1]) + Node(dloc,"APPLIST", [astp; ast1; mk_r (n-1)]) in mk_r n @@ -43,8 +43,8 @@ let _ = let rec int_of_r_rec ast1 astp p = match p with | Node (_,"APPLIST", [b; a; c]) when alpha_eq(b,astp) && - alpha_eq(c,ast1) -> - (int_of_r_rec ast1 astp a)+1 + alpha_eq(a,ast1) -> + (int_of_r_rec ast1 astp c)+1 | a when alpha_eq(a,ast1) -> 1 | _ -> raise Non_closed_number @@ -57,7 +57,7 @@ let int_of_r p = let replace_plus p = let (_,ast1,_,astnr) = get_r_sign dummy_loc in - ope ("REXPR",[ope("APPLIST", [astnr; p; ast1;])]) + ope ("REXPR",[ope("APPLIST", [astnr; ast1; p])]) let r_printer std_pr p = let (_,ast1,astp,_) = get_r_sign dummy_loc in |