home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 2: PC / frozenfish_august_1995.bin / bbs / d09xx / d0963.lha / SIOD / scm / spec.scm < prev    next >
Text File  |  1993-08-19  |  270b  |  10 lines
  1. (macro repeat 
  2.        (lambda (e)
  3.                `(begin ,(cadr e) (while ,(caddr e) ,(cadr e)))))
  4.  
  5. (macro for
  6.        (lambda (e)
  7.                `(do ((,(cadr e) ,(caddr e) ,(cadddr e)))
  8.                     (,(car (cddddr e)))
  9.                     ,@(cdr (cddddr e)))))
  10.