core: Remove list_to_string.
authorJan Nieuwenhuizen <janneke@gnu.org>
Fri, 23 Dec 2016 20:21:54 +0000 (21:21 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Fri, 23 Dec 2016 20:21:54 +0000 (21:21 +0100)
* string.c (list_to_string): Remove.
* module/mes/read-0.mes (list->string): New function.
* module/mes/scm.mes (list->string): Remove.

module/mes/read-0.mes
string.c

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)))
index cafd07069668ee96dbe8290a16f9f469f66fe773..5883b9f09913ca07ebd01bd8422301a1ee2784d5 100644 (file)
--- a/string.c
+++ b/string.c
  * along with Mes.  If not, see <http://www.gnu.org/licenses/>.
  */
 
-SCM
-list_to_string (SCM x)
-{
-  return MAKE_STRING (x);
-}
-
 SCM
 string_length (SCM x)
 {