;;; SICP-Stream compatibility definitions
;;;
;;; A google code search for "cons-stream" might help:
;; Special Forms: `delay', `force'
; --> part of R5RS
(provide (all-defined))
;; Constructor: Special Form `cons-stream'
(syntax-rules ()
;; Selectors: `head', `tail'
;; Conatant: `the-empty-stream'
;; Predicate: `empty-stream?'
; old-school, MIT-Scheme-compatible
(define the-empty-stream '())
; new-school
;(define the-empty-stream 'the-empty-stream)
;(define (empty-stream? s) (eq? s the-empty-stream))
)