Changeset 35850 in project


Ignore:
Timestamp:
07/12/18 13:04:05 (7 days ago)
Author:
juergen
Message:

basic-sequences bug in tagged-vector? fixed

Location:
release/4/basic-sequences
Files:
4 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/4/basic-sequences/tags/2.1/basic-sequences.scm

    r33787 r35850  
    11; Author: Juergen Lorenz ; ju (at) jugilo (dot) de
    22;
    3 ; Copyright (c) 2016, Juergen Lorenz
     3; Copyright (c) 2016-2018, Juergen Lorenz
    44; All rights reserved.
    55;
     
    4242          (only chicken case-lambda receive condition-case define-inline
    4343                define-values gensym string->keyword assert fixnum?
    44                 fx+ fx- fx= fx> fx< fx>= error subvector print)
     44                fx+ fx- fx= fx> fx< fx>= error subvector print keyword?)
    4545          (only data-structures chop conjoin disjoin list-of?)
    4646          (only simple-exceptions raise make-exception))
     
    7575  (and (vector? xpr)
    7676       (fx>= (vector-length xpr) 1)
    77        (condition-case (thunk? (vector-ref xpr 0))
    78          ((exn sequence) #t))))
     77       (let ((top (vector-ref xpr 0)))
     78         (condition-case (and (thunk? top)
     79                              (keyword? (top)))
     80           ((exn sequence) #t)))))
    7981
    8082(define (tagged-vector kw . args)
  • release/4/basic-sequences/tags/2.1/basic-sequences.setup

    r33787 r35850  
    77 'basic-sequences
    88 '("basic-sequences.so" "basic-sequences.import.so")
    9  '((version "2.0")))
     9 '((version "2.1")))
  • release/4/basic-sequences/trunk/basic-sequences.scm

    r33787 r35850  
    11; Author: Juergen Lorenz ; ju (at) jugilo (dot) de
    22;
    3 ; Copyright (c) 2016, Juergen Lorenz
     3; Copyright (c) 2016-2018, Juergen Lorenz
    44; All rights reserved.
    55;
     
    4242          (only chicken case-lambda receive condition-case define-inline
    4343                define-values gensym string->keyword assert fixnum?
    44                 fx+ fx- fx= fx> fx< fx>= error subvector print)
     44                fx+ fx- fx= fx> fx< fx>= error subvector print keyword?)
    4545          (only data-structures chop conjoin disjoin list-of?)
    4646          (only simple-exceptions raise make-exception))
     
    7575  (and (vector? xpr)
    7676       (fx>= (vector-length xpr) 1)
    77        (condition-case (thunk? (vector-ref xpr 0))
    78          ((exn sequence) #t))))
     77       (let ((top (vector-ref xpr 0)))
     78         (condition-case (and (thunk? top)
     79                              (keyword? (top)))
     80           ((exn sequence) #t)))))
    7981
    8082(define (tagged-vector kw . args)
  • release/4/basic-sequences/trunk/basic-sequences.setup

    r33787 r35850  
    77 'basic-sequences
    88 '("basic-sequences.so" "basic-sequences.import.so")
    9  '((version "2.0")))
     9 '((version "2.1")))
Note: See TracChangeset for help on using the changeset viewer.