Changeset 16019 in project


Ignore:
Timestamp:
09/21/09 19:25:44 (10 years ago)
Author:
Kon Lovett
Message:

Dropped use of -unsafe. Rmvd unused aliases.

Location:
release/4/lookup-table
Files:
6 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/4/lookup-table/tags/1.11.1/chicken-primitive-object-inlines.scm

    r15950 r16019  
    719719
    720720(define-inline (%list-every/1 pred? ls)
    721   (let loop ((ls ls) (last #t))
    722     (if (%null? ls) last
    723         (let ((this (pred? (%car ls))))
    724           (and this
    725                (loop (%cdr ls) this)) ) ) ) )
     721  (let loop ((ls ls))
     722    (or (%null? ls)
     723        (and (pred? (%car ls))
     724             (loop (%cdr ls))) ) ) )
    726725
    727726(define-inline (%list-length ls0)
  • release/4/lookup-table/tags/1.11.1/lookup-table-body.scm

    r15955 r16019  
    5959    (define %list-find find)
    6060    (define %fx< fx<)
    61     (define %memq memq)
    62     (define %pair? pair?)
    63     (define %null? null?)
    6461    (define %eq? eq?)
    6562    (define %alist-delete! alist-delete!)
     
    282279    (error-argument-type loc obj "defined value" nam)) )
    283280
    284 (define (check-alist loc obj #!optional nam)
    285   (check-list loc obj nam)
    286   (let loop ((al obj) (tal '()))
    287     (cond ((%null? al) )
    288           ((not (%pair? (%car al)))
    289             (error-argument-type loc obj "association list" nam) )
    290           ((%memq (%cdr al) tal)
    291             (error-argument-type loc obj "proper list" nam) )
    292           (else
    293             (loop (%cdr al) (%cons (%cdr al) tal)) ) ) ) )
    294 
    295281;; Errors
    296282
  • release/4/lookup-table/tags/1.11.1/lookup-table.setup

    r15948 r16019  
    55(verify-extension-name "lookup-table")
    66
     7(required-extension-version
     8  "check-errors"                "1.5.0")
     9
    710;; MAGIC-LIMIT - Element count when hash-table faster (YMMV)
    811(define opts
    912  '(-prelude "'(define-constant MAGIC-LIMIT 12)'"
     13    -optimize-level 3
    1014    -fixnum-arithmetic
    1115    -disable-interrupts
     
    1317
    1418(setup-shared-extension-module 'lookup-table (extension-version "1.11.0")
    15   #:compile-options (append opts '(-optimize-level 3 -debug-level 1)))
     19  #:compile-options (append opts '(-debug-level 1)))
    1620
    1721(setup-shared-extension-module 'lookup-table-unsafe (extension-version "1.11.0")
    18   #:compile-options (append opts '(-optimize-level 4 -debug-level 0)))
     22  #:compile-options (append opts '(-debug-level 0
     23                                   -no-procedure-checks -no-bound-checks -no-argc-checks)))
    1924
    2025(setup-shared-extension-module 'lookup-table-synch (extension-version "1.11.0")
    21   #:compile-options (append opts '(-optimize-level 3 -debug-level 1)))
     26  #:compile-options (append opts '(-debug-level 1)))
    2227
    2328(setup-shared-extension-module 'lookup-table-unsafe-synch (extension-version "1.11.0")
    24   #:compile-options (append opts '(-optimize-level 4 -debug-level 0)))
     29  #:compile-options (append opts '(-debug-level 0
     30                                   -no-procedure-checks -no-bound-checks -no-argc-checks)))
  • release/4/lookup-table/trunk/chicken-primitive-object-inlines.scm

    r15950 r16019  
    719719
    720720(define-inline (%list-every/1 pred? ls)
    721   (let loop ((ls ls) (last #t))
    722     (if (%null? ls) last
    723         (let ((this (pred? (%car ls))))
    724           (and this
    725                (loop (%cdr ls) this)) ) ) ) )
     721  (let loop ((ls ls))
     722    (or (%null? ls)
     723        (and (pred? (%car ls))
     724             (loop (%cdr ls))) ) ) )
    726725
    727726(define-inline (%list-length ls0)
  • release/4/lookup-table/trunk/lookup-table-body.scm

    r15955 r16019  
    5959    (define %list-find find)
    6060    (define %fx< fx<)
    61     (define %memq memq)
    62     (define %pair? pair?)
    63     (define %null? null?)
    6461    (define %eq? eq?)
    6562    (define %alist-delete! alist-delete!)
     
    282279    (error-argument-type loc obj "defined value" nam)) )
    283280
    284 (define (check-alist loc obj #!optional nam)
    285   (check-list loc obj nam)
    286   (let loop ((al obj) (tal '()))
    287     (cond ((%null? al) )
    288           ((not (%pair? (%car al)))
    289             (error-argument-type loc obj "association list" nam) )
    290           ((%memq (%cdr al) tal)
    291             (error-argument-type loc obj "proper list" nam) )
    292           (else
    293             (loop (%cdr al) (%cons (%cdr al) tal)) ) ) ) )
    294 
    295281;; Errors
    296282
  • release/4/lookup-table/trunk/lookup-table.setup

    r15948 r16019  
    55(verify-extension-name "lookup-table")
    66
     7(required-extension-version
     8  "check-errors"                "1.5.0")
     9
    710;; MAGIC-LIMIT - Element count when hash-table faster (YMMV)
    811(define opts
    912  '(-prelude "'(define-constant MAGIC-LIMIT 12)'"
     13    -optimize-level 3
    1014    -fixnum-arithmetic
    1115    -disable-interrupts
     
    1317
    1418(setup-shared-extension-module 'lookup-table (extension-version "1.11.0")
    15   #:compile-options (append opts '(-optimize-level 3 -debug-level 1)))
     19  #:compile-options (append opts '(-debug-level 1)))
    1620
    1721(setup-shared-extension-module 'lookup-table-unsafe (extension-version "1.11.0")
    18   #:compile-options (append opts '(-optimize-level 4 -debug-level 0)))
     22  #:compile-options (append opts '(-debug-level 0
     23                                   -no-procedure-checks -no-bound-checks -no-argc-checks)))
    1924
    2025(setup-shared-extension-module 'lookup-table-synch (extension-version "1.11.0")
    21   #:compile-options (append opts '(-optimize-level 3 -debug-level 1)))
     26  #:compile-options (append opts '(-debug-level 1)))
    2227
    2328(setup-shared-extension-module 'lookup-table-unsafe-synch (extension-version "1.11.0")
    24   #:compile-options (append opts '(-optimize-level 4 -debug-level 0)))
     29  #:compile-options (append opts '(-debug-level 0
     30                                   -no-procedure-checks -no-bound-checks -no-argc-checks)))
Note: See TracChangeset for help on using the changeset viewer.