Changeset 36471 in project


Ignore:
Timestamp:
09/01/18 12:37:16 (3 weeks ago)
Author:
juergen
Message:

bindings 7.2 fixes bug with null subpatterns

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

Legend:

Unmodified
Added
Removed
  • release/4/bindings/tags/7.2/bindings.scm

    r34875 r36471  
    11; Author: Juergen Lorenz ; ju (at) jugilo (dot) de
    22;
    3 ; Copyright (c) 2013-2017, Juergen Lorenz
     3; Copyright (c) 2013-2018, Juergen Lorenz
    44; All rights reserved.
    55;
     
    218218                                literals
    219219                                tails)))
    220                        ((atom? item) ; literal
     220                       ;((atom? item) ; literal
     221                                                                                         ((and (not (pair? item)) (not (null? item)))
    221222                        (loop (+ k 1)
    222223                              pairs
     
    225226                                    literals)
    226227                              tails))
    227                        ((pair? item)
     228                       ;((pair? item)
     229                                                                                         ((or (null? item) (pair? item)) ; list
    228230                        (receive (ps ls ts)
    229231                          (destructure item `(,%seq-ref ,seq ,k))
  • release/4/bindings/tags/7.2/bindings.setup

    r34875 r36471  
    77 'bindings
    88 '("bindings.so" "bindings.import.so")
    9  '((version "7.1")))
     9 '((version "7.2")))
  • release/4/bindings/tags/7.2/tests/run.scm

    r33777 r36471  
    1515  (check
    1616    (= (bind a 1 a) 1)
     17                (= (bind (a ()) (list 1 "") a) 1)
    1718    (equal? (bind (a b) '(1 2) (where (a odd?)) (list a b)) '(1 2))
    1819    (equal?
  • release/4/bindings/trunk/bindings.scm

    r34875 r36471  
    11; Author: Juergen Lorenz ; ju (at) jugilo (dot) de
    22;
    3 ; Copyright (c) 2013-2017, Juergen Lorenz
     3; Copyright (c) 2013-2018, Juergen Lorenz
    44; All rights reserved.
    55;
     
    218218                                literals
    219219                                tails)))
    220                        ((atom? item) ; literal
     220                       ;((atom? item) ; literal
     221                                                                                         ((and (not (pair? item)) (not (null? item)))
    221222                        (loop (+ k 1)
    222223                              pairs
     
    225226                                    literals)
    226227                              tails))
    227                        ((pair? item)
     228                       ;((pair? item)
     229                                                                                         ((or (null? item) (pair? item)) ; list
    228230                        (receive (ps ls ts)
    229231                          (destructure item `(,%seq-ref ,seq ,k))
  • release/4/bindings/trunk/bindings.setup

    r34875 r36471  
    77 'bindings
    88 '("bindings.so" "bindings.import.so")
    9  '((version "7.1")))
     9 '((version "7.2")))
  • release/4/bindings/trunk/tests/run.scm

    r33777 r36471  
    1515  (check
    1616    (= (bind a 1 a) 1)
     17                (= (bind (a ()) (list 1 "") a) 1)
    1718    (equal? (bind (a b) '(1 2) (where (a odd?)) (list a b)) '(1 2))
    1819    (equal?
Note: See TracChangeset for help on using the changeset viewer.