core: Remove string.
authorJan Nieuwenhuizen <janneke@gnu.org>
Fri, 23 Dec 2016 19:44:04 +0000 (20:44 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Fri, 23 Dec 2016 19:44:04 +0000 (20:44 +0100)
* string.c (string): Remove.
* module/mes/type-0.mes (string): New function.

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

index 81b51288ba513335e07ad2091acc013798827f5c..1a5549fb2014513eecde70729f22cb73dbab424d 100644 (file)
 ;;; core: accessors
 (define (string->list s)
   (core:car s))
+
+(define (string . lst)
+  (make-cell <cell:string> lst 0))
index 19469f29d6ffe063dfbcd95e9eabd6f20764c134..24ea80e2dc67abd75d8725ad4c850a2b4ee27976 100644 (file)
--- a/string.c
+++ b/string.c
  * along with Mes.  If not, see <http://www.gnu.org/licenses/>.
  */
 
-SCM
-string (SCM x) ///((arity . n))
-{
-  return MAKE_STRING (x);
-}
-
 SCM
 string_append (SCM x) ///((arity . n))
 {