← Back to branch summary

~ubuntu-branches/ubuntu/trusty/mit-scheme/trusty-proposed

« back to all changes in this revision

Viewing changes to src/edwin/notify.scm

  • Committer: Bazaar Package Importer
  • Author(s): Chris Hanson
  • Date: 2006-09-20 21:59:42 UTC
  • mfrom: (1.1.4 upstream) (3.1.1 etch)
  • Revision ID: james.westby@ubuntu.com-20060920215942-o3erry1wowyk1ezz
Tags: 7.7.90+20060906-3
No changes; rebuild with downgraded openssl in order to permit
transition into testing.

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/edwin/notify.scm
1
1
#| -*-Scheme-*-
2
2
 
3
 
$Id: notify.scm,v 1.23 2003/02/14 18:28:12 cph Exp $
 
3
$Id: notify.scm,v 1.24 2006/06/12 04:19:43 cph Exp $
4
4
 
5
 
Copyright 1992-2001 Massachusetts Institute of Technology
 
5
Copyright 1992,1993,1994,1995,1996,2001 Massachusetts Institute of Technology
 
6
Copyright 2006 Massachusetts Institute of Technology
6
7
 
7
8
This file is part of MIT/GNU Scheme.
8
9
 
185
186
 
186
187
(define (notifier)
187
188
  (update-notifier-strings!
188
 
   (reduce string-append-separated
189
 
           ""
190
 
           (map (lambda (element)
191
 
                  (if (and (car element)
192
 
                           (variable-value (car element)))
193
 
                      ((cdr element))
194
 
                      ""))
195
 
                notifier-elements))
 
189
   (reduce-right string-append-separated
 
190
                 ""
 
191
                 (map (lambda (element)
 
192
                        (if (and (car element)
 
193
                                 (variable-value (car element)))
 
194
                            ((cdr element))
 
195
                            ""))
 
196
                      notifier-elements))
196
197
   (if (and mail-notify-hook-installed?
197
198
            (ref-variable notify-show-mail))
198
199
       (notifier:mail-present)