Fix error when block cannot be pushed.

This commit is contained in:
David Thompson 2024-05-25 10:31:50 -04:00
parent 86faff26b8
commit c066364b72

View file

@ -163,8 +163,8 @@
(match ($ obj 'type)
('switch (do-push))
('gate (when ($ obj 'open?) (do-push)))
(_ (values))))
(_ (values))))))))))))
(_ #f)))
(_ #f)))))))))))
(('pushed?) ($ pushed?))))
(define (^clock-emitter bcom x y interval)