Export: protec du mot-clef Fois.

Author: Grahack

microalg_export.l

@@ -3,7 +3,8 @@
    (cond
       ((num? src) (list 'Litteral src))
       ((str? src) (list 'Litteral src))
-      ((sym? src) (if (index src '(Vrai Faux Rien Alors Sinon Tant_que Faire En_position De_type))
+      ((sym? src) (if (index src '(Vrai Faux Rien Alors Sinon Tant_que Faire
+                                   En_position De_type Fois))
                       src
                       (list 'Variable src)))
       (T          (cons (car src) (mapcar 'proteger_source_aux (cdr src))))