*** /home/dieggsy/.cache/chicken-install/r7rs/r7rs.scm	2021-03-14 17:01:49.046682886 -0400
--- /tmp/r7rs/r7rs.scm	2021-03-14 17:06:03.140028345 -0400
***************
*** 32,38 ****
        (lambda (tag port)
  	(let* ([x (read port)])
  	  (cond [(or (eq? tag 'f) (eq? tag 'F)) #f]
! 		[(memq tag consers) => (lambda (c) ((##sys#slot (##sys#slot c 1) 0) (read port)))]
  		[else (##sys#read-error port "illegal bytevector syntax" tag)])))))
    (set! ##sys#user-read-hook
  	(lambda (char port)
--- 32,38 ----
        (lambda (tag port)
  	(let* ([x (read port)])
  	  (cond [(or (eq? tag 'f) (eq? tag 'F)) #f]
! 		[(memq tag consers) => (lambda (c) ((##sys#slot (##sys#slot c 1) 0) x))]
  		[else (##sys#read-error port "illegal bytevector syntax" tag)])))))
    (set! ##sys#user-read-hook
  	(lambda (char port)