diff options
Diffstat (limited to 'module/vcomponent/util')
-rw-r--r-- | module/vcomponent/util/control.scm | 2 | ||||
-rw-r--r-- | module/vcomponent/util/search.scm | 3 |
2 files changed, 4 insertions, 1 deletions
diff --git a/module/vcomponent/util/control.scm b/module/vcomponent/util/control.scm index 0869543d..19a6fa18 100644 --- a/module/vcomponent/util/control.scm +++ b/module/vcomponent/util/control.scm @@ -26,7 +26,7 @@ ;; TODO what is this even used for? (define-syntax with-replaced-properties (syntax-rules () - [(_ (component (key val) ...) + [(G_ (component (key val) ...) body ...) (let ((htable (make-hash-table 10))) 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)) |