home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / program / s / scm / !Scm_slib_promise < prev    next >
Encoding:
Text File  |  1992-10-19  |  550 b   |  23 lines
  1. ;From Revised^4 Report on the Algorithmic Language Scheme
  2. ;William Clinger and Jonathon Rees (Editors)
  3.  
  4. (define promise:force (lambda (object) (object)))
  5.  
  6. (define make-promise
  7.   (lambda (proc)
  8.     (let ((result-ready? #f)
  9.       (result #f))
  10.       (lambda ()
  11.     (if result-ready?
  12.         result
  13.         (let ((x (proc)))
  14.           (if result-ready?
  15.           result
  16.           (begin (set! result-ready? #t)
  17.              (set! result x)
  18.              result))))))))
  19.  
  20. ;;; change occurences of (DELAY <expression>) to
  21. ;;; (MAKE-PROMISE (LAMBDA () <expression>))
  22. ;;; and (define force promise:force)
  23.