Changeset 13140 in project for chicken


Ignore:
Timestamp:
01/31/09 23:53:34 (11 years ago)
Author:
Kon Lovett
Message:

Renamed not proper list error per ##sys#error- for all error type procs, deprecated '##sys#not-a-proper-list-error'.

Location:
chicken/trunk
Files:
7 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/data-structures.scm

    r12937 r13140  
    4444      ##sys#check-char ##sys#check-exact ##sys#check-port ##sys#check-string
    4545      ##sys#substring ##sys#for-each ##sys#map ##sys#setslot
    46       ##sys#allocate-vector ##sys#check-pair ##sys#not-a-proper-list-error
     46      ##sys#allocate-vector ##sys#check-pair ##sys#error-not-a-proper-list
    4747      ##sys#member ##sys#assoc ##sys#error ##sys#signal-hook ##sys#read-string!
    4848      ##sys#check-symbol ##sys#check-vector ##sys#floor ##sys#ceiling
     
    243243      (cond [(null? lsts) '()]
    244244            [(cond-expand [unsafe #f] [else (not (pair? lsts))])
    245              (##sys#not-a-proper-list-error lsts) ]
     245             (##sys#error-not-a-proper-list lsts) ]
    246246            [else
    247247             (let ([l (##sys#slot lsts 0)]
     
    517517               (loop1 (##sys#slot ss 1)
    518518                      (fx+ (##sys#size stri) (fx+ dslen n)) ) ) )
    519             (else (##sys#not-a-proper-list-error strs)) ) ) ) )
     519            (else (##sys#error-not-a-proper-list strs)) ) ) ) )
    520520
    521521
     
    883883         (if (or (not (##core#inline "C_blockp" lst))
    884884                 (not (##core#inline "C_pairp" lst)) )
    885              (##sys#not-a-proper-list-error lst0 'list->queue) ) ) ) ) )
     885             (##sys#error-not-a-proper-list lst0 'list->queue) ) ) ) ) )
    886886
    887887
  • chicken/trunk/eval.scm

    r13138 r13140  
    6363    (bound-to-procedure
    6464     ##sys#check-char ##sys#check-exact ##sys#check-port ##sys#check-string ##sys#load-library
    65      ##sys#for-each ##sys#map ##sys#setslot ##sys#allocate-vector ##sys#check-pair ##sys#not-a-proper-list-error
     65     ##sys#for-each ##sys#map ##sys#setslot ##sys#allocate-vector ##sys#check-pair ##sys#error-not-a-proper-list
    6666     ##sys#check-symbol ##sys#check-vector ##sys#floor ##sys#ceiling ##sys#truncate ##sys#round
    6767     ##sys#check-number ##sys#cons-flonum ##sys#copy-env-table
  • chicken/trunk/extras.scm

    r12937 r13140  
    4646      ##sys#check-char ##sys#check-exact ##sys#check-port ##sys#check-string
    4747      ##sys#substring ##sys#for-each ##sys#map ##sys#setslot
    48       ##sys#allocate-vector ##sys#check-pair ##sys#not-a-proper-list-error
     48      ##sys#allocate-vector ##sys#check-pair ##sys#error-not-a-proper-list
    4949      ##sys#member ##sys#assoc ##sys#error ##sys#signal-hook ##sys#read-string!
    5050      ##sys#check-symbol ##sys#check-vector ##sys#floor ##sys#ceiling
  • chicken/trunk/library.scm

    r13138 r13140  
    131131     ##sys#check-char ##sys#check-exact ##sys#check-port ##sys#check-port* ##sys#check-string ##sys#substring ##sys#check-port-mode
    132132     ##sys#for-each ##sys#map ##sys#setslot ##sys#allocate-vector ##sys#check-pair
    133      ##sys#not-a-proper-list-error ##sys#error ##sys#warn ##sys#signal-hook
     133     ##sys#error-not-a-proper-list ##sys#error ##sys#warn ##sys#signal-hook
    134134     ##sys#check-symbol ##sys#check-vector ##sys#floor ##sys#ceiling ##sys#truncate ##sys#round
    135135     ##sys#check-number ##sys#cons-flonum ##sys#check-integer ##sys#check-special
     
    434434          (else (cons (##sys#slot lst 0) (loop (##sys#slot lst 1)))) ) ) )
    435435
    436 (define (##sys#not-a-proper-list-error arg . loc)
    437   (##sys#error-hook (foreign-value "C_NOT_A_PROPER_LIST_ERROR" int)
    438                     (and (pair? loc) (car loc)) arg) )
     436(define (##sys#error-not-a-proper-list arg . loc)
     437  (##sys#error-hook (foreign-value "C_NOT_A_PROPER_LIST_ERROR" int) (and (pair? loc) (car loc)) arg) )
     438
     439(define ##sys#not-a-proper-list-error ##sys#error-not-a-proper-list) ;DEPRECATED
    439440
    440441(define (append . lsts)
     
    454455                      ((pair? node)
    455456                       (cons (##sys#slot node 0) (copy (##sys#slot node 1))) )
    456                       (else (##sys#not-a-proper-list-error (##sys#slot lsts 0) 'append)) ) ] ) ) ) ) ) )
     457                      (else (##sys#error-not-a-proper-list (##sys#slot lsts 0) 'append)) ) ] ) ) ) ) ) )
    457458
    458459(define (reverse lst0)
     
    467468              ((pair? lst)
    468469               (loop (##sys#slot lst 1) (cons (##sys#slot lst 0) rest)) )
    469               (else (##sys#not-a-proper-list-error lst0 'reverse)) ) ] ) ) )
     470              (else (##sys#error-not-a-proper-list lst0 'reverse)) ) ] ) ) )
    470471
    471472(define (memq x lst) (##core#inline "C_i_memq" x lst))
     
    527528    [else
    528529    (if (not (list? lst0))
    529       (##sys#not-a-proper-list-error lst0 'list->string)
     530      (##sys#error-not-a-proper-list lst0 'list->string)
    530531      (let* ([len (length lst0)]
    531532             [s (##sys#make-string len)] )
     
    563564                 (iter (##sys#slot l2 1) (fx- n2 1)) ) ) )
    564565        s )
    565       (##sys#not-a-proper-list-error l 'reverse-list->string) ) ]
     566      (##sys#error-not-a-proper-list l 'reverse-list->string) ) ]
    566567    ) )
    567568
     
    12891290    [else
    12901291    (if (not (list? lst0))
    1291       (##sys#not-a-proper-list-error lst0 'list->vector)
     1292      (##sys#error-not-a-proper-list lst0 'list->vector)
    12921293      (let* ([len (length lst0)]
    12931294             [v (##sys#make-vector len)] )
     
    15081509             (p (##sys#slot lst 0))
    15091510             (loop (##sys#slot lst 1)) )
    1510             (else (##sys#not-a-proper-list-error lst0 'for-each)) ) ] ) ) )
     1511            (else (##sys#error-not-a-proper-list lst0 'for-each)) ) ] ) ) )
    15111512
    15121513(define (##sys#map p lst0)
     
    15211522            ((pair? lst)
    15221523             (cons (p (##sys#slot lst 0)) (loop (##sys#slot lst 1))) )
    1523             (else (##sys#not-a-proper-list-error lst0 'map)) ) ] ) ) )
     1524            (else (##sys#error-not-a-proper-list lst0 'map)) ) ] ) ) )
    15241525
    15251526(define for-each)
     
    15381539                          ((pair? item)
    15391540                           (cons (p item) (mapsafe p (##sys#slot lsts 1) #f loc)) )
    1540                           (else (##sys#not-a-proper-list-error item loc)) ) ) ) ) )
     1541                          (else (##sys#error-not-a-proper-list item loc)) ) ) ) ) )
    15411542           (check
    15421543            (lambda (lsts start loc)
  • chicken/trunk/lolevel.scm

    r13138 r13140  
    5757     ##sys#make-string
    5858     make-property-condition make-composite-condition signal ##sys#set-pointer-address! ##sys#make-vector
    59      ##sys#make-pointer make-string make-byte-vector ##sys#not-a-proper-list-error ##sys#check-pointer
     59     ##sys#make-pointer make-string make-byte-vector ##sys#error-not-a-proper-list ##sys#check-pointer
    6060     ##sys#locative? ##sys#bytevector?
    6161     extend-procedure ##sys#lambda-decoration ##sys#decorate-lambda ##sys#make-tagged-pointer ##sys#check-special
  • chicken/trunk/ports.scm

    r12937 r13140  
    5454      ##sys#check-char ##sys#check-exact ##sys#check-port ##sys#check-string
    5555      ##sys#substring ##sys#for-each ##sys#map ##sys#setslot
    56       ##sys#allocate-vector ##sys#check-pair ##sys#not-a-proper-list-error
     56      ##sys#allocate-vector ##sys#check-pair ##sys#error-not-a-proper-list
    5757      ##sys#member ##sys#assoc ##sys#error ##sys#signal-hook ##sys#read-string!
    5858      ##sys#check-symbol ##sys#check-vector ##sys#floor ##sys#ceiling
  • chicken/trunk/srfi-4.scm

    r13138 r13140  
    7878     ##sys#check-inexact-interval ##sys#check-number ##sys#check-structure ##sys#cons-flonum ##sys#check-list
    7979     ##sys#check-range ##sys#error ##sys#signal-hook
    80      ##sys#not-a-proper-list-error ##sys#print ##sys#allocate-vector) ) ] )
     80     ##sys#error-not-a-proper-list ##sys#print ##sys#allocate-vector) ) ] )
    8181
    8282(include "unsafe-declarations.scm")
     
    393393          (if (and (##core#inline "C_blockp" p) (##core#inline "C_pairp" p))
    394394              (set v i (##core#inline "C_slot" p 0))
    395               (##sys#not-a-proper-list-error lst) ) ) ) ) )
     395              (##sys#error-not-a-proper-list lst) ) ) ) ) )
    396396
    397397  (set! list->u8vector (init make-u8vector u8vector-set! 'list->u8vector))
Note: See TracChangeset for help on using the changeset viewer.