core: Remove list_to_string.
[mes.git] / module / mes / read-0.mes
index 28cb8eb6df0c23ba0d0c8a310376030f791d651b..2995621fe26ba85804a9156496a37245947d9ecc 100644 (file)
      (current-module))) (current-module))
 
   (define <cell:keyword> 3)
+  (define <cell:string> 9)
+
+  (define (list->string lst)
+    (make-cell <cell:string> lst 0))
 
   (define (read)
     (read-word (read-byte) (list) (current-module)))