Changeset 37194 in project


Ignore:
Timestamp:
02/02/19 16:31:26 (2 weeks ago)
Author:
juergen
Message:

simple-cells 1.2 with dependency changed

Location:
release/5/simple-cells
Files:
3 edited
4 copied

Legend:

Unmodified
Added
Removed
  • release/5/simple-cells/tags/1.2/simple-cells.egg

    r36759 r37194  
    44 (license "BSD")
    55 (test-dependencies simple-tests)
    6  (dependencies simple-exceptions)
     6 (dependencies checks)
    77 (author "Juergen Lorenz")
    8  (version "1.1.1")
     8 (version "1.2")
    99 (components (extension simple-cells)))
  • release/5/simple-cells/tags/1.2/simple-cells.scm

    r36759 r37194  
    11; Author: Juergen Lorenz ; ju (at) jugilo (dot) de
    22;
    3 ; Copyright (c) 2017-2018, Juergen Lorenz
     3; Copyright (c) 2017-2019, Juergen Lorenz
    44; All rights reserved.
    55;
     
    4949(module simple-cells (simple-cells cell cell? cell-of?)
    5050  (import scheme
    51           (only simple-exceptions <<<)
     51          (only checks <<<%)
    5252          (only (chicken condition) condition-case)
    5353          (only (chicken base)
     
    6161  (let ((type (gensym 'cell)))
    6262    (values
    63       (lambda (var . tests)
    64         (let ((state  (apply (<<< 'cell) var 'state tests)))
     63      (lambda (arg . tests)
     64        (let ((state  (apply <<<% 'cell 'state arg tests)))
    6565          (case-lambda
    6666            (() state)
     
    7070                     (if (and (symbol? arg) (eq? arg type))
    7171                       arg
    72                        (apply (<<< 'cell) arg 'arg tests)))
     72                       (apply <<<% 'cell 'state arg tests)))
    7373               old)))))
    7474      (lambda (xpr)
  • release/5/simple-cells/tags/1.2/tests/run.scm

    r36750 r37194  
    1 (import simple-cells simple-exceptions simple-tests)
     1(import simple-cells simple-tests)
    22
    33  (define o% (cell 5 integer? odd?))
    4   (define n% (cell 4 (named-lambda (3<=? x) (<= 3 x))))
     4  (define n% (cell 4 (lambda (x) (<= 3 x))))
    55  (define lst (map cell '(0 1 2 3 4)))
    66
    77(define-test (Cells?)
    8   ;(define o% (cell 5 integer? odd?))
    98  (cell? o%)
    109  ((cell-of? number?) o%)
    1110  (not ((cell-of? number? even?) o%))
    12   (not (condition-case (o% 4) ((exn argument) #f)))
     11  (not (condition-case (o% 4) ((exn) #f)))
    1312  (= (o%) 5)
    14   ;(define n% (cell 4 (named-lambda (3<=? x) (<= 3 x))))
    1513  (= (n%) 4)
    1614  (= (n% 20) 4)
    1715  (= (n%) 20)
     16  (not (condition-case (n% 2) ((exn) #f)))
    1817  (= (o%) 5)
    19   ;(define lst (map cell '(0 1 2 3 4)))
    2018  (= ((list-ref lst 3)) 3)
    2119  (= ((list-ref lst 3) 30) 3)
  • release/5/simple-cells/trunk/simple-cells.egg

    r36759 r37194  
    44 (license "BSD")
    55 (test-dependencies simple-tests)
    6  (dependencies simple-exceptions)
     6 (dependencies checks)
    77 (author "Juergen Lorenz")
    8  (version "1.1.1")
     8 (version "1.2")
    99 (components (extension simple-cells)))
  • release/5/simple-cells/trunk/simple-cells.scm

    r36759 r37194  
    11; Author: Juergen Lorenz ; ju (at) jugilo (dot) de
    22;
    3 ; Copyright (c) 2017-2018, Juergen Lorenz
     3; Copyright (c) 2017-2019, Juergen Lorenz
    44; All rights reserved.
    55;
     
    4949(module simple-cells (simple-cells cell cell? cell-of?)
    5050  (import scheme
    51           (only simple-exceptions <<<)
     51          (only checks <<<%)
    5252          (only (chicken condition) condition-case)
    5353          (only (chicken base)
     
    6161  (let ((type (gensym 'cell)))
    6262    (values
    63       (lambda (var . tests)
    64         (let ((state  (apply (<<< 'cell) var 'state tests)))
     63      (lambda (arg . tests)
     64        (let ((state  (apply <<<% 'cell 'state arg tests)))
    6565          (case-lambda
    6666            (() state)
     
    7070                     (if (and (symbol? arg) (eq? arg type))
    7171                       arg
    72                        (apply (<<< 'cell) arg 'arg tests)))
     72                       (apply <<<% 'cell 'state arg tests)))
    7373               old)))))
    7474      (lambda (xpr)
  • release/5/simple-cells/trunk/tests/run.scm

    r36750 r37194  
    1 (import simple-cells simple-exceptions simple-tests)
     1(import simple-cells simple-tests)
    22
    33  (define o% (cell 5 integer? odd?))
    4   (define n% (cell 4 (named-lambda (3<=? x) (<= 3 x))))
     4  (define n% (cell 4 (lambda (x) (<= 3 x))))
    55  (define lst (map cell '(0 1 2 3 4)))
    66
    77(define-test (Cells?)
    8   ;(define o% (cell 5 integer? odd?))
    98  (cell? o%)
    109  ((cell-of? number?) o%)
    1110  (not ((cell-of? number? even?) o%))
    12   (not (condition-case (o% 4) ((exn argument) #f)))
     11  (not (condition-case (o% 4) ((exn) #f)))
    1312  (= (o%) 5)
    14   ;(define n% (cell 4 (named-lambda (3<=? x) (<= 3 x))))
    1513  (= (n%) 4)
    1614  (= (n% 20) 4)
    1715  (= (n%) 20)
     16  (not (condition-case (n% 2) ((exn) #f)))
    1817  (= (o%) 5)
    19   ;(define lst (map cell '(0 1 2 3 4)))
    2018  (= ((list-ref lst 3)) 3)
    2119  (= ((list-ref lst 3) 30) 3)
Note: See TracChangeset for help on using the changeset viewer.