1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00

Use a fresh cons for %stream-null.

* module/srfi/srfi-41.scm (%stream-null): Use a fresh cons rather than
  a literal cons. You never know what peval constant-folding could do
  with the latter, either now or in the future.
This commit is contained in:
Chris K. Jester-Young 2013-04-06 03:06:37 -04:00
parent a24cda1d26
commit 3f1362adb5

View file

@ -148,7 +148,7 @@
(define stream? stream-promise?)
(define %stream-null '(stream . null))
(define %stream-null (cons 'stream 'null))
(define stream-null (stream-eager %stream-null))
(define (stream-null? obj)