artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

mes: #\page is whitespace.

Browse source 
* 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
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
module/srfi/srfi-14.mes
View file

@ -1,7 +1,7 @@
;;; -*-scheme-*- ;;; -*-scheme-*-
;;; Mes --- Maxwell Equations of Software ;;; 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. ;;; This file is part of Mes.
;;; ;;;
@ -35,7 +35,7 @@
(and (char-set? a) (char-set? b) (and (char-set? a) (char-set? b)
(equal? a 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) (define (list->char-set lst)
(apply char-set lst)) (apply char-set lst))