- (with-engine engine
- (let halt-engine ((halts (get-entities-by-components '(engine-halt))))
- (cond ((not (null? halts))
- (set! halt #t)
- (cond (clean
- (remove-entity! (caar halts))
- (halt-engine (cdr halts))))))))
+ (let halt-engine ((halts (get-entities-by-components '(engine-halt))))
+ (cond ((not (null? halts))
+ (set! halt #t)
+ (cond (clean
+ (remove-entity! (caar halts))
+ (halt-engine (cdr halts)))))))