diff options
| author | Thomas White <taw@physics.org> | 2023-04-25 21:12:23 +0200 |
|---|---|---|
| committer | Thomas White <taw@physics.org> | 2023-04-25 21:13:38 +0200 |
| commit | 6beaa3ae1f4951fb2a40513009bc020477f80c79 (patch) | |
| tree | 8a855431f3473dc51395e29b485c4db753ec64ff /guile/starlet/utils.scm | |
| parent | b238d71fa0310be9a0125ee70da117e5ec27fa36 (diff) | |
Add OSC utilities
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)) |