Tant_que: vérif mot-clef intermédiaire.

Author: Grahack

microalg.l

@@ -393,6 +393,7 @@ Voir <http://fr.wikipedia.org/wiki/Fonction_OU>.")
 (de Tant_que arg_lst (let (Bool (car arg_lst)
                            Mot-Clef (cadr arg_lst)
                            Corps (cddr arg_lst))
+                          (if (<> 'Faire Mot-Clef) (quit "Commande Tant_que sans mot-clé Faire."))
                           (while (<> Faux (eval Bool))
                                  (run Corps))
                           Rien