Changeset 38176 in project


Ignore:
Timestamp:
02/06/20 14:19:18 (2 weeks ago)
Author:
juergen
Message:

biglists 0.4: dependency on bindings removed

Location:
release/5/biglists
Files:
6 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/5/biglists/tags/0.4/biglists.egg

    r37762 r38176  
    1 ((synopsis
    2    "a uniform interface to lists and lazy-lists")
     1((synopsis "a uniform interface to lists and lazy-lists")
    32 (category lang-exts)
    43 (license "BSD")
    5  (test-dependencies bindings simple-tests)
    6  (dependencies bindings)
     4 (test-dependencies simple-tests)
    75 (author "Juergen Lorenz")
    8  (version "0.3")
     6 (version "0.4")
    97 (components (extension biglists)))
    108
  • release/5/biglists/tags/0.4/biglists.scm

    r37762 r38176  
    11; Author: Juergen Lorenz ; ju (at) jugilo (dot) de
    22;
    3 ; Copyright (c) 2013-2019, Juergen Lorenz
     3; Copyright (c) 2013-2020, Juergen Lorenz
    44; All rights reserved.
    55;
     
    117117
    118118
    119   (import scheme (chicken base) (only bindings eos bind-seq-db))
     119  (import scheme (chicken base))
     120
     121(define eos (gensym 'eos))
    120122
    121123(define (and? . xprs)
     
    11571159                   obj)))))
    11581160   
    1159 ;;; make biglists accessible to pattern matching
    1160 ;;; ----------------------------------------------
    1161 (bind-seq-db BigList?
    1162              #:ref (lambda (xs k) (At k xs))
    1163              #:tail (lambda (xs k) (Drop k xs)))
    1164 
    11651161;(define (integers-from n)
    11661162;  (Cons n (integers-from (+ n 1)) #f))
  • release/5/biglists/tags/0.4/tests/run.scm

    r37762 r38176  
    1 (import biglists (only bindings bind) simple-tests)
     1(import biglists simple-tests)
    22
    33;;; (At 10000 primes)
     
    193193  (equal? (BigList->list (Sort < (List 5 3 2 7 5 1 0)))
    194194          '(0 1 2 3 5 5 7))
    195   (equal? (bind (x . xs) integers (list x (BigList->list 5 xs)))
    196           '(0 (1 2 3 4 5)))
    197   (equal? (bind (x (y . ys) z) (List 1 integers 3)
    198             (list x y z (BigList->list 5 ys)))
    199           '(1 0 3 (1 2 3 4 5)))
    200195  (equal? (BigList->list (Remp odd? four)) '(0 2))
    201196  (equal? (Remv 1 '(0 1 2 1 3 1 4)) '(0 2 3 4))
  • release/5/biglists/trunk/biglists.egg

    r37762 r38176  
    1 ((synopsis
    2    "a uniform interface to lists and lazy-lists")
     1((synopsis "a uniform interface to lists and lazy-lists")
    32 (category lang-exts)
    43 (license "BSD")
    5  (test-dependencies bindings simple-tests)
    6  (dependencies bindings)
     4 (test-dependencies simple-tests)
    75 (author "Juergen Lorenz")
    8  (version "0.3")
     6 (version "0.4")
    97 (components (extension biglists)))
    108
  • release/5/biglists/trunk/biglists.scm

    r37762 r38176  
    11; Author: Juergen Lorenz ; ju (at) jugilo (dot) de
    22;
    3 ; Copyright (c) 2013-2019, Juergen Lorenz
     3; Copyright (c) 2013-2020, Juergen Lorenz
    44; All rights reserved.
    55;
     
    117117
    118118
    119   (import scheme (chicken base) (only bindings eos bind-seq-db))
     119  (import scheme (chicken base))
     120
     121(define eos (gensym 'eos))
    120122
    121123(define (and? . xprs)
     
    11571159                   obj)))))
    11581160   
    1159 ;;; make biglists accessible to pattern matching
    1160 ;;; ----------------------------------------------
    1161 (bind-seq-db BigList?
    1162              #:ref (lambda (xs k) (At k xs))
    1163              #:tail (lambda (xs k) (Drop k xs)))
    1164 
    11651161;(define (integers-from n)
    11661162;  (Cons n (integers-from (+ n 1)) #f))
  • release/5/biglists/trunk/tests/run.scm

    r37762 r38176  
    1 (import biglists (only bindings bind) simple-tests)
     1(import biglists simple-tests)
    22
    33;;; (At 10000 primes)
     
    193193  (equal? (BigList->list (Sort < (List 5 3 2 7 5 1 0)))
    194194          '(0 1 2 3 5 5 7))
    195   (equal? (bind (x . xs) integers (list x (BigList->list 5 xs)))
    196           '(0 (1 2 3 4 5)))
    197   (equal? (bind (x (y . ys) z) (List 1 integers 3)
    198             (list x y z (BigList->list 5 ys)))
    199           '(1 0 3 (1 2 3 4 5)))
    200195  (equal? (BigList->list (Remp odd? four)) '(0 2))
    201196  (equal? (Remv 1 '(0 1 2 1 3 1 4)) '(0 2 3 4))
Note: See TracChangeset for help on using the changeset viewer.