mes: Add string-null?.
authorJan Nieuwenhuizen <janneke@gnu.org>
Mon, 1 Jan 2018 15:41:15 +0000 (16:41 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Mon, 1 Jan 2018 15:41:15 +0000 (16:41 +0100)
* module/srfi/srfi-13.mes (string-null?): New function.

module/srfi/srfi-13.mes

index 0bd8c543f4648edc460d205a1e131c5cdd5d42a1..a801d7db0bed15089004eba12745267b632f8505 100644 (file)
@@ -1,7 +1,7 @@
 ;;; -*-scheme-*-
 
 ;;; Mes --- Maxwell Equations of Software
-;;; Copyright © 2016,2017 Jan Nieuwenhuizen <janneke@gnu.org>
+;;; Copyright © 2016,2017,2018 Jan Nieuwenhuizen <janneke@gnu.org>
 ;;;
 ;;; This file is part of Mes.
 ;;;
@@ -90,3 +90,5 @@
 
 (define substring/copy substring)
 (define substring/shared substring)
+
+(define string-null? (compose null? string->list))