diff --git a/mes/module/srfi/srfi-43.mes b/mes/module/srfi/srfi-43.mes index 5ab749cc..e6b78f18 100644 --- a/mes/module/srfi/srfi-43.mes +++ b/mes/module/srfi/srfi-43.mes @@ -1,7 +1,7 @@ ;;; -*-scheme-*- ;;; GNU Mes --- Maxwell Equations of Software -;;; Copyright © 2016,2018 Jan (janneke) Nieuwenhuizen +;;; Copyright © 2016,2018,2020 Jan (janneke) Nieuwenhuizen ;;; ;;; This file is part of GNU Mes. ;;; @@ -24,6 +24,10 @@ ;;; Code: +(define-module (srfi srfi-43) + #:export (vector-map + vector-for-each)) + (define (vector-map f v) (let* ((k (vector-length v)) (n (make-vector k))) diff --git a/tests/srfi-43.test b/tests/srfi-43.test index 8d89ead8..4775aea3 100755 --- a/tests/srfi-43.test +++ b/tests/srfi-43.test @@ -1,12 +1,14 @@ #! /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-43)' -s "$0" "$@" !# ;;; -*-scheme-*- ;;; GNU Mes --- Maxwell Equations of Software -;;; Copyright © 2018 Jan (janneke) Nieuwenhuizen +;;; Copyright © 2018,2020 Jan (janneke) Nieuwenhuizen ;;; ;;; This file is part of GNU Mes. ;;; @@ -25,12 +27,8 @@ exec ${MES-bin/mes} --no-auto-compile -L ${0%/*} -L module -C module -e '(tests (define-module (tests srfi-43) #:use-module (srfi srfi-43) - #:use-module (mes mes-0) #:use-module (mes test)) -(mes-use-module (srfi srfi-43)) -(mes-use-module (mes test)) - (pass-if "first dummy" #t) (pass-if-not "second dummy" #f)