source: project/release/3/loop/loop.scm @ 8633

Last change on this file since 8633 was 1, checked in by azul, 15 years ago

Import everything.

File size: 1.2 KB
Line 
1;;; **********************************************************************
2;;;
3;;; Copyright (C) 2002 Heinrich Taube (taube@uiuc.edu)
4;;;
5;;; This program is free software; you can redistribute it and/or
6;;; modify it under the terms of the GNU General Public License
7;;; as published by the Free Software Foundation; either version 2
8;;; of the License, or (at your option) any later version.
9;;;
10;;; This program is distributed in the hope that it will be useful,
11;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
12;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
13;;; GNU General Public License for more details.
14;;;
15;;; **********************************************************************
16
17;;; $Name:  $
18;;; $Revision: 1.1 $
19;;; $Date: 2004/08/30 20:40:47 $
20
21;;;
22;;; Implementation of the CLTL2 loop macro. The following
23;;; non Rev 5 definitions or their equivalents are needed:
24;;;
25;;;   (defmacro (name args . body)
26;;;       to expand loop, when, unless, push and pop
27;;;   (err msg)
28;;;       signal error with message string.
29;;;   (gensym )
30;;;       create new symbol.
31;;;
32
33(require-extension srfi-1)
34
35(require 'loop-support)
36
37(define-macro (loop . args)
38  (scheme-loop args))
Note: See TracBrowser for help on using the repository browser.