18 lines
460 B
Racket
18 lines
460 B
Racket
#lang scheme/base
|
|
|
|
(require "config.ss" "logger.ss" "reloadable.ss")
|
|
|
|
(provide hook)
|
|
|
|
(define hook-file #f)
|
|
(define hook-proc #f)
|
|
|
|
(define (hook what alist)
|
|
(let ([file (get-conf 'hook-file)])
|
|
(when file
|
|
(unless (equal? file hook-file)
|
|
(set! hook-file file)
|
|
(set! hook-proc (auto-reload-procedure `(file ,(path->string file))
|
|
'hook)))
|
|
(hook-proc what (current-session) alist))))
|