(rp-var-define 'act/extensions '() 'list #f)
;; %act-on-read-case gets called after reading case file
(let ((old client-read-case))
  (set! client-read-case
    (lambda args
      (apply old args)
      (%act-on-read-case)
      )
    )
  )

;; %act-on-write-case gets called before writing case file
(let ((old client-write-case))
  (set! client-write-case
    (lambda args
      (%act-on-write-case)
      (apply old args)
      )
    )
  )

;; (let ((old %open-udf-library))
;;   (set! %open-udf-library
;;     (lambda (name)
;;       (old (%act-get-udf-name name))
;;       )
;;     )
;;   )

;; (let ((old open-udf-libraries))
;;   (set! open-udf-libraries
;;     (lambda args
;;       ;(open-act-extension-libraries)
;;       (apply old args))
;;     )
;;   )

