home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / guile-ii.src / guile-ii / guile-src / slib / mulapply.scm < prev    next >
Encoding:
Text File  |  1994-05-26  |  1011 b   |  29 lines
  1. ; "mulapply.scm" Redefine APPLY take more than 2 arguments.
  2. ;Copyright (C) 1991 Aubrey Jaffer
  3. ;
  4. ;Permission to copy this software, to redistribute it, and to use it
  5. ;for any purpose is granted, subject to the following restrictions and
  6. ;understandings.
  7. ;
  8. ;1.  Any copy made of this software must include this copyright notice
  9. ;in full.
  10. ;
  11. ;2.  I have made no warrantee or representation that the operation of
  12. ;this software will be error-free, and I am under no obligation to
  13. ;provide any services, by way of maintenance, update, or otherwise.
  14. ;
  15. ;3.  In conjunction with products arising from the use of this
  16. ;material, there shall be no use of my name in any advertising,
  17. ;promotional, or sales literature without prior written consent in
  18. ;each case.
  19.  
  20. (define two-arg:apply apply)
  21. (define apply
  22.   (lambda args
  23.     (two-arg:apply (car args) (apply:append-to-last (cdr args)))))
  24.  
  25. (define (apply:append-to-last lst)
  26.   (if (null? (cdr lst))
  27.       (car lst)
  28.       (cons (car lst) (apply:append-to-last (cdr lst)))))
  29.