summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--2d/observer.scm8
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))