home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / scheme / gjr / cmplrtst.lha / close.scm < prev    next >
Encoding:
Text File  |  1990-03-27  |  207 b   |  18 lines
  1. ;;; -*- Scheme -*-
  2.  
  3. (declare (usual-integrations))
  4.  
  5. #|
  6. Description:
  7.  
  8. This code tests simple closures.
  9.  
  10. Usage:
  11.  
  12. (define bar (curried-+ 23))
  13. (bar 34) -> 57
  14. |#
  15.  
  16. (define (curried-+ x)
  17.   (lambda (y)
  18.     (+ x y)))