Ticket #1734: r7rs-bytevector.patch

File r7rs-bytevector.patch, 814 bytes (added by Diego, 9 months ago)

Fixes bytevector syntax in r7rs

Line 
1*** /home/dieggsy/.cache/chicken-install/r7rs/r7rs.scm  2021-03-14 17:01:49.046682886 -0400
2--- /tmp/r7rs/r7rs.scm  2021-03-14 17:06:03.140028345 -0400
3***************
4*** 32,38 ****
5        (lambda (tag port)
6        (let* ([x (read port)])
7          (cond [(or (eq? tag 'f) (eq? tag 'F)) #f]
8!               [(memq tag consers) => (lambda (c) ((##sys#slot (##sys#slot c 1) 0) (read port)))]
9                [else (##sys#read-error port "illegal bytevector syntax" tag)])))))
10    (set! ##sys#user-read-hook
11        (lambda (char port)
12--- 32,38 ----
13        (lambda (tag port)
14        (let* ([x (read port)])
15          (cond [(or (eq? tag 'f) (eq? tag 'F)) #f]
16!               [(memq tag consers) => (lambda (c) ((##sys#slot (##sys#slot c 1) 0) x))]
17                [else (##sys#read-error port "illegal bytevector syntax" tag)])))))
18    (set! ##sys#user-read-hook
19        (lambda (char port)