← Back to branch summary

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

« back to all changes in this revision

Viewing changes to src/edwin/debug.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/debug.scm
1
1
#| -*-Scheme-*-
2
2
 
3
 
$Id: debug.scm,v 1.69 2005/04/01 05:06:57 cph Exp $
 
3
$Id: debug.scm,v 1.70 2006/06/12 04:19:43 cph Exp $
4
4
 
5
5
Copyright 1992,1993,1994,1995,1996,1997 Massachusetts Institute of Technology
6
6
Copyright 1998,1999,2000,2001,2002,2003 Massachusetts Institute of Technology
7
 
Copyright 2004,2005 Massachusetts Institute of Technology
 
7
Copyright 2004,2005,2006 Massachusetts Institute of Technology
8
8
 
9
9
This file is part of MIT/GNU Scheme.
10
10
 
1710
1710
                              names
1711
1711
                              '())))
1712
1712
                      env-list))
1713
 
         (names2 (reduce append '() names1))
 
1713
         (names2 (reduce-right append '() names1))
1714
1714
         (names3 (let loop ((l names2))
1715
1715
                     (if (null? l)
1716
1716
                         l