Affecter_a: on n'affecte a un txt qu'un char.

Grahack · Grahack · commit 98901d7d4aeb · 2015-12-02T16:05:49.000+01:00
diff --git a/microalg.l b/microalg.l
@@ -500,6 +500,13 @@ 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
+                     (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) "
+                                      "mais vous avez donné : " (Texte val) "."))
+                     )
+                 )
                  # Puis le travail:
                  (cond
                    ((!liste? evaled_var) (put> evaled_var val idx))

Original file line number	Diff line number	Diff line change
@@ -500,6 +500,13 @@ alors l’élément à la `idx` ième position dans `var` est affecté de la val
`500`	`500`	`((lt0 (- len idx)) (quit "Indice trop grand." (list idx '> len)))`
`501`	`501`	`)`
`502`	`502`	`)`
	`503`	`+ (if (str? evaled_var) # check pour textes, inutile pour listes`
	`504`	`+ (ifn (and (str? val) (not (<> 1 (length val))))`
	`505`	`+ (quit (pack "La valeur affectée à un texte doit être "`
	`506`	`+ "un texte de longueur 1 (un caractère) "`
	`507`	`+ "mais vous avez donné : " (Texte val) "."))`
	`508`	`+ )`
	`509`	`+ )`
`503`	`510`	`# Puis le travail:`
`504`	`511`	`(cond`
`505`	`512`	`((!liste? evaled_var) (put> evaled_var val idx))`