From d64575ff1f084ab6a157732372d76cd5851974f0 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Thu, 14 May 2020 02:04:14 +0200 Subject: Add stream->values. --- module/srfi/srfi-41/util.scm | 3 +++ 1 file changed, 3 insertions(+) (limited to 'module/srfi/srfi-41/util.scm') diff --git a/module/srfi/srfi-41/util.scm b/module/srfi/srfi-41/util.scm index dcd31973..0aa4ae9a 100644 --- a/module/srfi/srfi-41/util.scm +++ b/module/srfi/srfi-41/util.scm @@ -72,6 +72,9 @@ (define-public (stream-remove pred stream) (stream-filter (negate pred) stream)) +(define-public (stream->values stream) + (apply values (stream->list stream))) + ;; Evaluates @var{body} in a context where most list fundamentals are ;; replaced by stream alternatives. ;; commented defifinitions are items which could be included, but for -- cgit v1.2.3