summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson@member.fsf.org>2013-09-15 22:41:31 -0400
committerDavid Thompson <dthompson@member.fsf.org>2013-09-15 22:41:31 -0400
commit7934aa3f3583546b9cfdd73bb32477feb2465e57 (patch)
tree9b4776749ef6a2589691a6ad30d6a49c30291f2b
parentde85fd8ca59a8c463efcf0556751c73f1846e321 (diff)
Clean up docstrings for observer module.
-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))