diff options
-rw-r--r-- | 2d/observer.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/2d/observer.scm b/2d/observer.scm index a23a93b..29dc15c 100644 --- a/2d/observer.scm +++ b/2d/observer.scm @@ -42,14 +42,14 @@ (events observer-events)) (define (make-observer) - "Return a new observer." + "Create a new observer." (%make-observer (make-hash-table))) (define (alist->observer alst) "Return a new observer that registers the callbacks for events in -the given alist. Each pair in the alist should map one event type to -one callback procedure. For multiple event handlers of the same type, -use multiple pairs." +the alist ALST. Each pair in ALST should map one event type to one +callback procedure. For multiple event handlers of the same type, use +multiple pairs." (let ((observer (make-observer))) (for-each (lambda (e) (observer-on observer (car e) (cdr e))) alst) observer)) |