Correct record-type names in srfi 41

This commit is contained in:
Lukas Stoll 2020-06-09 19:50:13 +02:00
parent 4f23fb4e03
commit afba9d8c27

View file

@ -2,16 +2,16 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; primitive layer adapted from SRFI 41 reference impl
(define-record-type <stream>
(define-record-type Stream
(make-stream promise)
stream?
(promise stream-promise))
(define-record-type <stream-null>
(define-record-type Stream-null
(make-stream-null)
%stream-null?)
(define-record-type <stream-pair>
(define-record-type Stream-pair
(make-stream-pair head tail)
%stream-pair?
(head %stream-car)