From 7934aa3f3583546b9cfdd73bb32477feb2465e57 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sun, 15 Sep 2013 22:41:31 -0400 Subject: Clean up docstrings for observer module. --- 2d/observer.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to '2d') 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)) -- cgit v1.2.3