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