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:
parent
a24cda1d26
commit
3f1362adb5
1 changed files with 1 additions and 1 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue