Faire: check de présence de Tant_que.

Author: Grahack

microalg.l

@@ -396,6 +396,7 @@ Voir <http://fr.wikipedia.org/wiki/Fonction_OU>.")
 (de Faire arg_lst (let (Splitted (split arg_lst 'Tant_que)
                         Corps (car Splitted)
                         Bool (caadr Splitted))
+                       (ifn (<> arg_lst Corps) (quit "Commande `Faire` sans mot-clé `Tant_que`."))
                        (run Corps)
                        (if (!boolCheckM2P (eval Bool) "La condition n’est pas un booléen.")
                            (while (!boolCheckM2P (eval Bool) "La condition n’est pas un booléen.")