diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-09-13 00:01:28 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-09-13 00:01:28 +0200 |
| commit | a82b6c772089aa46e30c6c89ef48f514294df3cb (patch) | |
| tree | e25d9b6fd1fefe8b6ac293a5c0b53293872a8f54 /module/vcomponent/util/search.scm | |
| parent | Add basic documentation for lens. (diff) | |
| parent | Even more documentation. (diff) | |
| download | calp-a82b6c772089aa46e30c6c89ef48f514294df3cb.tar.gz calp-a82b6c772089aa46e30c6c89ef48f514294df3cb.tar.xz | |
Merge branch 'next' into datarewrite-structures
Diffstat (limited to 'module/vcomponent/util/search.scm')
| -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)) |