diff options
Diffstat (limited to 'guile/starlet/utils.scm')
-rw-r--r-- | guile/starlet/utils.scm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/guile/starlet/utils.scm b/guile/starlet/utils.scm index e38e6b7..e1b92a8 100644 --- a/guile/starlet/utils.scm +++ b/guile/starlet/utils.scm @@ -40,7 +40,8 @@ percent->dmxval16 comment hash-table-empty? - lookup)) + lookup + add-and-run-hook!)) (define (print-hash-table ht) @@ -173,3 +174,8 @@ (cadr (car dictionary))) (else (lookup key (cdr dictionary))))) + + +(define (add-and-run-hook! hook proc . initial-args) + (add-hook! hook proc) + (apply proc initial-args)) |