mes: #\page is whitespace.
authorJan Nieuwenhuizen <janneke@gnu.org>
Thu, 4 Jan 2018 21:26:29 +0000 (22:26 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Thu, 4 Jan 2018 21:26:29 +0000 (22:26 +0100)
* module/srfi/srfi-14.mes (char-set:whitespace): Add #\page.

module/srfi/srfi-14.mes

index 9d8606911a299874029b7f1b2cafefcdd4f87926..799637ca899e56fdc4216d1224d66bb79b6f9df2 100644 (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))