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) |
---|