Fix bug du texte dans la liste.

Author: Grahack

microalg.l

@@ -582,6 +582,8 @@ avec les plus jeunes.")
 (dm T (ELTS)
       (=: elts ELTS)
 )
+(dm list> ()
+    T)
 (dm length> ()
     (length (: elts))
 )
@@ -991,7 +993,7 @@ Le suffixe `@` indique le caractère pseudo-aléatoire de cette commande.
 
 # Types et conversions
 (de !liste? (!x)
-  (or (try 'text> !x) (try 'text> !evaled_x)) )
+  (or (try 'list> !x) (try 'list> !evaled_x)) )
 (de !type_sym (!x)
   (let (!evaled_x (eval !x)
         embedded_type (ifn (num? !x) (get !x 'type)))

microalg_tests.malg

@@ -197,6 +197,8 @@
             '(or (put 'x 'type NIL) T)
             '(let (x NIL) (= "(Liste 1 2 (Liste 3 4))" (prog (Declarer x De_type "liste") (Affecter_a x (Liste 3 4)) (Afficher (Liste 1 2 x)) *LastStdOut)))
             '(or (put 'x 'type NIL) T)
+            '(let (x NIL) (= "(Liste \"bonjour\")" (prog (Declarer x De_type "liste") (Affecter_a x (Liste "bonjour")) (Afficher x) *LastStdOut)))
+            '(or (put 'x 'type NIL) T)
             '(= "(Liste 1 2 (Liste 3 (Liste 4 5)))" (prog (Afficher (Liste 1 2 (Liste 3 (Liste 4 5)))) *LastStdOut))
             '(or (put 'x 'type NIL) T)
             '(= "(Liste 1 \"bonjour\" Vrai)" (prog (Afficher (Liste 1 "bonjour" Vrai)) *LastStdOut))