mes: #\page is whitespace.
* module/srfi/srfi-14.mes (char-set:whitespace): Add #\page.
This commit is contained in:
parent
cab272a101
commit
c60e79ae11
|
@ -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))
|
||||
|
|
Loading…
Reference in a new issue