From bde7ab7de7cf5694ab3133f01876e2daf4a8fd23 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Wed, 11 May 2022 21:18:32 +0200 Subject: Resolve failing tests from last commit. --- module/vcomponent/util/instance/methods.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'module/vcomponent') diff --git a/module/vcomponent/util/instance/methods.scm b/module/vcomponent/util/instance/methods.scm index 57d12f6b..c8ba5945 100644 --- a/module/vcomponent/util/instance/methods.scm +++ b/module/vcomponent/util/instance/methods.scm @@ -146,12 +146,12 @@ (define-method (remove-event (this ) event) - ;; cons #f so delq1! can delete the first element - - (delq1! event (cons #f (slot-ref this 'events))) + (slot-set! this 'events + (delq1! event (slot-ref this 'events))) (let ((slot-name (if (repeating? event) 'repeating-events 'fixed-events))) - (delq1! event (cons #f (slot-ref this slot-name)))) + (slot-set! this slot-name + (delq1! event (slot-ref this slot-name)))) (slot-set! this 'event-set (stream-remove -- cgit v1.2.3