From 5e714a3068a3cfe9acdc28aa6bfe0c79589edf4d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Mon, 10 Apr 2023 22:44:16 +0200
Subject: Add ->port.

---
 doc/ref/guile/util.texi | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'doc/ref/guile/util.texi')

diff --git a/doc/ref/guile/util.texi b/doc/ref/guile/util.texi
index f60e2059..72aa30b1 100644
--- a/doc/ref/guile/util.texi
+++ b/doc/ref/guile/util.texi
@@ -372,6 +372,11 @@ the file, and @code{#f} otherwise.
 @defun call-with-tmpfile proc [#:tmpl ``/tmp/file-XXXXXXX'']
 @end defun
 
+@defun ->port port-or-strings
+If @var{port-or-string} is a port, return it directly. If it's a
+string, instead return an input string containing the strings content.
+@end defun
+
 @c Is this even a procedure?
 @defun read-file path
 Open file at path, and return its content as a string.
-- 
cgit v1.2.3