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

Bugfix for reading #\*eof* character.

Browse source 
* module/mes/read-0.mes (read-character): Bugfix for #\*eof*.
This commit is contained in:
Jan Nieuwenhuizen 2017-01-03 23:46:03 +01:00
parent d0e222dac3
commit cc68c1cda8
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
module/mes/read-0.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,2017 Jan Nieuwenhuizen <janneke@gnu.org>
;;; ;;;
;;; This file is part of Mes. ;;; This file is part of Mes.
;;; ;;;
@ -221,13 +221,14 @@
(nruter . 13) (nruter . 13)
(ecaps . 32)))) => cdr) (ecaps . 32)))) => cdr)
(#t (core:stderr (quote char-not-supported:)) (core:stderr n) (newline) (exit 1)))) (#t (core:stderr (quote char-not-supported:)) (core:stderr n) (newline) (exit 1))))
(if (not (and (> p 96) (< p 123))) (integer->char (lookup-char (list->symbol (cons (integer->char c) n)))) (if (not (or (eq? p 42) (and (> p 96) (< p 123)))) (integer->char (lookup-char (list->symbol (cons (integer->char c) n))))
(read-name (read-byte) (peek-byte) (cons (integer->char c) n)))) (read-name (read-byte) (peek-byte) (cons (integer->char c) n))))
((lambda (c p) ((lambda (c p)
(cond ((and (> c 47) (< c 56) (> p 47) (< p 56)) (cond ((and (> c 47) (< c 56) (> p 47) (< p 56))
(integer->char (read-octal c p (- c 48)))) (integer->char (read-octal c p (- c 48))))
((and (> c 96) (< c 123) (> p 96) (< p 123)) (read-name c p (list))) ((and (or (= c 42) (and (> c 96) (< c 123)))
(or (= p 42) (and (> p 96) (< p 123)))) (read-name c p (list)))
(#t (integer->char c)))) (#t (integer->char c))))
(read-byte) (peek-byte))) (read-byte) (peek-byte)))