Changeset 25441 in project


Ignore:
Timestamp:
10/27/11 11:27:22 (9 years ago)
Author:
juergen
Message:

bug in effect-checks fixed

Location:
release/4/contracts
Files:
4 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/4/contracts/tags/2.0.3/contracts.scm

    r25289 r25441  
    11; Author: Juergen Lorenz
    22; ju (at) jugilo (dot) de
    3 ;
    4 ; Last update: Sep 14, 2011
    53;
    64; Copyright (c) 2011, Juergen Lorenz
     
    3432; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
    3533;
     34; Last update: Oct 27, 2011
     35;
    3636;Design by Contract
    3737;==================
     
    976976         ;; check state change
    977977         (let ((state query) ...) ; query value before command call
    978            (command . args)
     978           (apply command (collect args))
    979979           (eval-when (eval)
    980980             ;; evaluate query again and compare to change
  • release/4/contracts/tags/2.0.3/contracts.setup

    r25289 r25441  
    88 'contracts
    99 '("contracts.so" "contracts.import.so" "contract-helpers.import.so")
    10  '((version "2.0.2")))
     10 '((version "2.0.3")))
  • release/4/contracts/trunk/contracts.scm

    r25289 r25441  
    11; Author: Juergen Lorenz
    22; ju (at) jugilo (dot) de
    3 ;
    4 ; Last update: Sep 14, 2011
    53;
    64; Copyright (c) 2011, Juergen Lorenz
     
    3432; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
    3533;
     34; Last update: Oct 27, 2011
     35;
    3636;Design by Contract
    3737;==================
     
    976976         ;; check state change
    977977         (let ((state query) ...) ; query value before command call
    978            (command . args)
     978           (apply command (collect args))
    979979           (eval-when (eval)
    980980             ;; evaluate query again and compare to change
  • release/4/contracts/trunk/contracts.setup

    r25289 r25441  
    88 'contracts
    99 '("contracts.so" "contracts.import.so" "contract-helpers.import.so")
    10  '((version "2.0.2")))
     10 '((version "2.0.3")))
Note: See TracChangeset for help on using the changeset viewer.