mes: #\page is whitespace.

* module/srfi/srfi-14.mes (char-set:whitespace): Add #\page.
This commit is contained in:
Jan Nieuwenhuizen 2018-01-04 22:26:29 +01:00
parent cab272a101
commit c60e79ae11

View file

@ -1,7 +1,7 @@
;;; -*-scheme-*-
;;; Mes --- Maxwell Equations of Software
;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2016,2018 Jan Nieuwenhuizen <janneke@gnu.org>
;;;
;;; This file is part of Mes.
;;;
@ -35,7 +35,7 @@
(and (char-set? a) (char-set? b)
(equal? a b)))
(define char-set:whitespace (char-set #\tab #\return #\vtab #\newline #\space))
(define char-set:whitespace (char-set #\tab #\page #\return #\vtab #\newline #\space))
(define (list->char-set lst)
(apply char-set lst))