Fix Affecter_a En_position (missing boolM2P).

Grahack · Grahack · commit 084a7f6e65d0 · 2015-12-05T23:05:59.000+01:00
diff --git a/microalg.l b/microalg.l
@@ -501,7 +501,7 @@ alors l’élément à la `idx` ième position dans `var` est affecté de la val
                      ((lt0 (- len idx)) (quit "Indice trop grand." (list idx '> len)))
                    )
                  )
-                 (if (str? evaled_var)  # check pour textes, inutile pour listes
+                 (if (!boolM2P (!texte? evaled_var))  # check pour textes, inutile pour listes
                      (ifn (and (str? val) (not (<> 1 (length val))))
                           (quit (pack "La valeur affectée à un texte doit être "
                                       "un texte de longueur 1 (un caractère) "

Original file line number	Diff line number	Diff line change
@@ -501,7 +501,7 @@ alors l’élément à la `idx` ième position dans `var` est affecté de la val
`501`	`501`	`((lt0 (- len idx)) (quit "Indice trop grand." (list idx '> len)))`
`502`	`502`	`)`
`503`	`503`	`)`
`504`		`- (if (str? evaled_var) # check pour textes, inutile pour listes`
	`504`	`+ (if (!boolM2P (!texte? evaled_var)) # check pour textes, inutile pour listes`
`505`	`505`	`(ifn (and (str? val) (not (<> 1 (length val))))`
`506`	`506`	`(quit (pack "La valeur affectée à un texte doit être "`
`507`	`507`	`"un texte de longueur 1 (un caractère) "`