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