Changeset 13320 in project


Ignore:
Timestamp:
02/16/09 04:15:11 (11 years ago)
Author:
Kon Lovett
Message:

Use of srfi-12 procs rather than underlying impl.

Location:
chicken/branches/chicken-3
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • chicken/branches/chicken-3/csi.scm

    r13143 r13320  
    682682                x
    683683                (lambda (k v) (fprintf out " ~S\t-> ~S~%" k v)) ) ]
    684               [(##sys#structure? x 'condition)
     684              [(condition? x)
    685685               (fprintf out "condition: ~s~%" (##sys#slot x 1))
    686686               (for-each
  • chicken/branches/chicken-3/defaults.make

    r13178 r13320  
    307307.PHONY: all
    308308
    309 all: checksvnrevision $(TARGETS)
    310 
    311 checksvnrevision:
     309all: buildsvnrevision $(TARGETS)
     310
     311buildsvnrevision:
    312312ifdef WINDOWS_SHELL
     313        echo 0 >buildsvnrevision
    313314else
    314315        sh $(SRCDIR)svnrevision.sh
    315316endif
    316 
    317317
    318318# generic part of chicken-config.h
  • chicken/branches/chicken-3/eval.scm

    r13143 r13320  
    192192        (handle-exceptions ex
    193193            (##sys#abort
    194              (if (and (##sys#structure? ex 'condition)
    195                       (memv 'exn (##sys#slot ex 1)) )
    196                  (##sys#make-structure
    197                   'condition
    198                   (##sys#slot ex 1)
    199                   (let copy ([ps (##sys#slot ex 2)])
    200                     (if (null? ps)
    201                         '()
    202                         (let ([p (car ps)]
    203                               [r (cdr ps)])
    204                           (if (and (equal? '(exn . message) p)
    205                                    (pair? r)
    206                                    (string? (car r)) )
    207                               (cons
    208                                '(exn . message)
    209                                (cons (string-append
    210                                       "during expansion of (" (##sys#slot name 1) " ...) - "
    211                                       (car r) )
    212                                      (cdr r) ) )
    213                               (copy r) ) ) ) ) )
     194             (if (condition? ex)
     195                 (make-composite-condition
     196                  ex
     197                  (make-property-condition 'syntax 'name (cdr name)))
    214198                 ex) )
    215199          (handler exp) ) )
  • chicken/branches/chicken-3/lolevel.scm

    r13178 r13320  
    687687                          (make-composite-condition
    688688                           (make-property-condition
    689                             'exn 'location 'object-evict-to-location
     689                            'exn
     690                            'location 'object-evict-to-location
    690691                            'message "cannot evict object - limit exceeded"
    691692                            'arguments (list x limit))
Note: See TracChangeset for help on using the changeset viewer.