srf-i4

mes/module/srfi/srfi-14.mes

@@ -1,7 +1,7 @@
 ;;; -*-scheme-*-
 
 ;;; GNU Mes --- Maxwell Equations of Software
-;;; Copyright © 2016,2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
+;;; Copyright © 2016,2018,2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
 ;;;
 ;;; This file is part of GNU Mes.
 ;;;
@@ -24,6 +24,24 @@
 
 ;;; Code:
 
+(define-module (srfi srfi-14)
+  #:export (char-set
+            char-set?
+            char-set=
+            char-set:whitespace
+            char-set:digit
+            char-set:upper-case
+            char-set lst
+            string->char-set
+            string->char-set!
+            char-set-adjoin
+            char-set-contains?
+            char-set-complement
+            char-whitespace?
+            char-set-copy
+            char-upcase
+            char-downcase))
+
 ;; FIXME: have structs
 (define (char-set . x)
   (cons '*char-set* x))

tests/srfi-14.test

@@ -1,5 +1,7 @@
 #! /bin/sh
 # -*-scheme-*-
+MES_BOOT=boot-5.mes
+export MES_BOOT
 exec ${MES-bin/mes} --no-auto-compile -L ${0%/*} -L module -C module -e '(tests srfi-14)' -s "$0" "$@"
 !#
 
@@ -28,9 +30,6 @@ exec ${MES-bin/mes} --no-auto-compile -L ${0%/*} -L module -C module -e '(tests
   #:use-module (mes mes-0)
   #:use-module (mes test))
 
-(mes-use-module (srfi srfi-14))
-(mes-use-module (mes test))
-
 (pass-if "first dummy" #t)
 (pass-if-not "second dummy" #f)