← Back to branch summary

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

« back to all changes in this revision

Viewing changes to src/runtime/mit-syntax.scm

  • Committer: Bazaar Package Importer
  • Author(s): Soren Hansen
  • Date: 2007-05-09 10:57:57 UTC
  • mfrom: (1.1.5 upstream)
  • Revision ID: james.westby@ubuntu.com-20070509105757-p8focimovgqxaaed
Tags: 7.7.90+20070205-1ubuntu1
* Merge from debian unstable, remaining changes:
  * Bootstrapping done via supplied binary package. See log entry for
    7.7.90+20060906-3ubuntu1 for details.

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/runtime/mit-syntax.scm
1
1
#| -*-Scheme-*-
2
2
 
3
 
$Id: mit-syntax.scm,v 14.26 2006/06/12 17:53:08 cph Exp $
 
3
$Id: mit-syntax.scm,v 14.30 2007/01/26 02:38:22 riastradh Exp $
4
4
 
5
 
Copyright 1989,1990,1991,2001,2002,2003 Massachusetts Institute of Technology
6
 
Copyright 2004,2005,2006 Massachusetts Institute of Technology
 
5
Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
 
6
    1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
 
7
    2006, 2007 Massachusetts Institute of Technology
7
8
 
8
9
This file is part of MIT/GNU Scheme.
9
10
 
19
20
 
20
21
You should have received a copy of the GNU General Public License
21
22
along with MIT/GNU Scheme; if not, write to the Free Software
22
 
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
 
23
Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301,
23
24
USA.
24
25
 
25
26
|#
334
335
          (if-error)))))
335
336
 
336
337
(define supported-srfi-features
337
 
  '(SRFI-0
 
338
  '(MIT
 
339
    MIT/GNU
 
340
    SRFI-0
338
341
    SRFI-1
339
342
    SRFI-2
340
343
    SRFI-6
410
413
                   (bindings (caddr form))
411
414
                   (body (cdddr form)))
412
415
               `((,(rename 'LETREC)
413
 
                  ((,name (,(rename 'LAMBDA) ,(map car bindings) ,@body)))
 
416
                  ((,name (,(rename 'NAMED-LAMBDA) (,name ,@(map car bindings))
 
417
                                                   ,@body)))
414
418
                  ,name)
415
419
                 ,@(map (lambda (binding)
416
420
                          (if (pair? (cdr binding))