core: Remove string.
[mes.git] / module / mes / type-0.mes
index 81b51288ba513335e07ad2091acc013798827f5c..1a5549fb2014513eecde70729f22cb73dbab424d 100644 (file)
 ;;; core: accessors
 (define (string->list s)
   (core:car s))
 ;;; core: accessors
 (define (string->list s)
   (core:car s))
+
+(define (string . lst)
+  (make-cell <cell:string> lst 0))