diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-03-28 13:44:39 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-09-11 19:58:54 +0200 |
| commit | 5d6dd99486979f5e1c95b6290a9dfaf71befcb14 (patch) | |
| tree | da5d88b35ea09bb2cafca362fa69b57c5c6c6a5e | |
| parent | Simplify main scripts. (diff) | |
| download | calp-5d6dd99486979f5e1c95b6290a9dfaf71befcb14.tar.gz calp-5d6dd99486979f5e1c95b6290a9dfaf71befcb14.tar.xz | |
Add comment about bad stream error.
| -rw-r--r-- | module/vcomponent/util/search.scm | 3 |
1 files changed, 3 insertions, 0 deletions
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" () (#<stream>)) (unless (string=? fmt "beyond end of stream") (scm-error err proc fmt args data)) |