(define *handlers* '())

(define (add-handler move)
  (push-back! *handlers* move))

(define (run-handlers)
  (for-each (lambda (handler)
              (handler))
            *handlers*))

(add-handler (lambda ()
               (c-display "fx/dist2:" (and *current-fx/distance*
                                          (*current-fx/distance* :dir)))))
