From 5d6dd99486979f5e1c95b6290a9dfaf71befcb14 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 28 Mar 2022 13:44:39 +0200 Subject: Add comment about bad stream error. --- module/vcomponent/util/search.scm | 3 +++ 1 file changed, 3 insertions(+) diff --git a/module/vcomponent/util/search.scm b/module/vcomponent/util/search.scm index e2057e9e..3c2d7663 100644 --- a/module/vcomponent/util/search.scm +++ b/module/vcomponent/util/search.scm @@ -175,6 +175,9 @@ (lambda (err proc fmt args data) ;; NOTE This is mostly a hack to see that we ;; actually check for the correct error. + ;; + ;; stream-ref quite unhelpfully throws this error as + ;; $3 = (wrong-type-arg stream-ref "beyond end of stream" () (#)) (unless (string=? fmt "beyond end of stream") (scm-error err proc fmt args data)) -- cgit v1.2.3