Changeset 33737 in project


Ignore:
Timestamp:
11/09/16 12:46:56 (9 months ago)
Author:
juergen
Message:

continuations 1.4.1 with current-continuation renamed escape-procedure

Location:
release/4/continuations
Files:
6 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/4/continuations/tags/1.4.1/continuations.scm

    r33710 r33737  
    4242  (continuations catch capture graft throw continuation? continuation
    4343                 current call goto continuation->procedure
    44                  current-continuation escape-procedure?)
     44                 escape-procedure escape-procedure?)
    4545
    4646  (import scheme
     
    8181
    8282;;; Matt Wright's functional interface
    83 (define-values (current-continuation escape-procedure?)
     83(define-values (escape-procedure escape-procedure?)
    8484  (let ((type (gensym 'escape-procedure)))
    8585    (values
     
    9595(define continuations
    9696  (let ((alist '(
    97           (current-continuation
    98             procedure:
    99             (current-continuation)
     97          (escape-procedure
     98            procedure:
     99            (escape-procedure)
    100100            "captures the current continuation as an escape procedure")
    101101          (escape-procedure?
  • release/4/continuations/tags/1.4.1/continuations.setup

    r33710 r33737  
    88 'continuations
    99 '("continuations.so" "continuations.import.so" "continuations-used.import.so")
    10  '((version "1.4")))
     10 '((version "1.4.1")))
  • release/4/continuations/tags/1.4.1/tests/run.scm

    r33710 r33737  
    6363    (check
    6464      (define (product . nums)
    65         (let ((cc (current-continuation)))
     65        (let ((cc (escape-procedure)))
    6666          (cond
    6767            ((escape-procedure? cc) ; continuation cc just created
  • release/4/continuations/trunk/continuations.scm

    r33710 r33737  
    4242  (continuations catch capture graft throw continuation? continuation
    4343                 current call goto continuation->procedure
    44                  current-continuation escape-procedure?)
     44                 escape-procedure escape-procedure?)
    4545
    4646  (import scheme
     
    8181
    8282;;; Matt Wright's functional interface
    83 (define-values (current-continuation escape-procedure?)
     83(define-values (escape-procedure escape-procedure?)
    8484  (let ((type (gensym 'escape-procedure)))
    8585    (values
     
    9595(define continuations
    9696  (let ((alist '(
    97           (current-continuation
    98             procedure:
    99             (current-continuation)
     97          (escape-procedure
     98            procedure:
     99            (escape-procedure)
    100100            "captures the current continuation as an escape procedure")
    101101          (escape-procedure?
  • release/4/continuations/trunk/continuations.setup

    r33710 r33737  
    88 'continuations
    99 '("continuations.so" "continuations.import.so" "continuations-used.import.so")
    10  '((version "1.4")))
     10 '((version "1.4.1")))
  • release/4/continuations/trunk/tests/run.scm

    r33710 r33737  
    6363    (check
    6464      (define (product . nums)
    65         (let ((cc (current-continuation)))
     65        (let ((cc (escape-procedure)))
    6666          (cond
    6767            ((escape-procedure? cc) ; continuation cc just created
Note: See TracChangeset for help on using the changeset viewer.