core: Remove string_length.
authorJan Nieuwenhuizen <janneke@gnu.org>
Fri, 23 Dec 2016 20:26:16 +0000 (21:26 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Fri, 23 Dec 2016 20:26:16 +0000 (21:26 +0100)
* module/mes/scm.mes (string-length): New function.

module/mes/scm.mes
string.c

index 58659ff1ca7fb90e830b83ea0220900c57150166..646c95ab7184bde175fefafbf1b3f8c136272aa2 100644 (file)
 
 \f
 ;;; Strings/srfi-13
+(define (string-length s)
+  (length (string->list s)))
+
 (define (string-ref s k)
   (list-ref (string->list s) k))
 
index 5883b9f09913ca07ebd01bd8422301a1ee2784d5..9b489373bcc08b60aed27cce293596a5b8f5a6fe 100644 (file)
--- a/string.c
+++ b/string.c
  * along with Mes.  If not, see <http://www.gnu.org/licenses/>.
  */
 
-SCM
-string_length (SCM x)
-{
-  assert (TYPE (x) == STRING);
-  return MAKE_NUMBER (VALUE (length (STRING (x))));
-}
-
 SCM
 substring (SCM x) ///((arity . n))
 {