AZ
Size: a a a
AZ
VL
VL
AZ
(setq a-hook '())
работаетAZ
(define (hook-delete! hook proc)
(let loop ((procs (hook-procs hook))
(out '()))
(unless (null? procs)
(if (eq? proc (car procs))
(hook-procs! hook (append (cdr procs) out))
(loop (cdr procs) (cons (car procs) out))))))
(delete proc (hook-procs hook) eq?)
AZ
A
A
A
AZ
AZ
A
A
PG
site:srfi.schemers.org
PG
AZ
AZ
AZ
AZ