Changeset 21376 in project


Ignore:
Timestamp:
11/10/10 11:12:01 (10 years ago)
Author:
Moritz Heidkamp
Message:

vandusen: apply pager patch by Christian Kellermann and bump version to 0.6

Location:
release/4/vandusen/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/vandusen/trunk/VERSION

    r21101 r21376  
    1 0.5
     10.6
  • release/4/vandusen/trunk/vandusen-pager.scm

    r21105 r21376  
    99
    1010          (define (add-task! from nick text)
    11             (let ((msg (list (seconds->string (current-seconds)) nick text)))
     11            (let ((msg (list (seconds->string (current-seconds)) from text)))
    1212              (cond ((alist-ref nick tasks equal?) => (lambda (k) (set! tasks (alist-update! nick (cons msg k) tasks equal?))))
    1313                    (else (set! tasks (alist-cons nick (cons msg '()) tasks))))))
Note: See TracChangeset for help on using the changeset viewer.