maj_lexer

pfx/basic/lexer.mll

@@ -24,7 +24,7 @@ rule token = parse
   (* integers *)
   | digit+ as nb           { mk_int nb }
   (* commands  *)
-  (* | "push" {Push (mkint nb)} ne se fait pas que avec ocamllex - push 12 est une phrase, push et 12 sont deux unités lexicales, wtf *)
+  | "push" {Push}
   | "pop" {Pop}
   | "swap" {Swap}
   | "add" {Add}