Changeset 33128 in project


Ignore:
Timestamp:
01/24/16 12:30:31 (3 years ago)
Author:
juergen
Message:

simple-exceptions 0.2 renames with-handler to with-exn-handler

Location:
release/4/simple-exceptions
Files:
6 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/4/simple-exceptions/tags/0.2/simple-exceptions.scm

    r31762 r33128  
    33ju (at) jugilo (dot) de
    44
    5 Copyright (c) 2014, Juergen Lorenz
     5Copyright (c) 2014-2016, Juergen Lorenz
    66All rights reserved.
    77
     
    3737(module simple-exceptions
    3838  (export simple-exceptions exception? exception-of? make-exception location
    39           message arguments raise with-handler guard assert*)
     39          message arguments raise with-exn-handler guard assert*)
    4040  (import scheme
    4141          (only chicken
     
    146146    (##sys#abort exn)))
    147147
    148 ;;; (with-handler handler thunk)
     148;;; (with-exn-handler handler thunk)
    149149;;; ----------------------------
    150150;;; wrapping Chicken's with-exception-handler into pop-and-call
    151151;;; to avoid the generation of infinite loops
    152 (define (with-handler handler thunk)
     152(define (with-exn-handler handler thunk)
    153153  ;((call-with-current-continuation
    154154  (continuation-capture
     
    183183      (arguments exn)
    184184      (raise exn)
    185       (with-handler handler thunk)
     185      (with-exn-handler handler thunk)
    186186      (handle-exceptions exn handle-xpr xpr . xprs)
    187187      (guard (exn cond-clause . cond-clauses) xpr . xprs)
  • release/4/simple-exceptions/tags/0.2/simple-exceptions.setup

    r31762 r33128  
    77 'simple-exceptions
    88 '("simple-exceptions.so" "simple-exceptions.import.so")
    9  '((version "0.1")))
     9 '((version "0.2")))
  • release/4/simple-exceptions/tags/0.2/tests/run.scm

    r31762 r33128  
    3030   
    3131    ;; exception handler procedure
    32     (not (with-handler
     32    (not (with-exn-handler
    3333           (lambda (exn)
    3434             (if ((exception-of? 'list-empty) exn)
     
    3737           (lambda () (try-car '()))))
    3838   
    39     (zero? (with-handler (lambda (e) 0) (lambda () (/ 5 0))))
     39    (zero? (with-exn-handler (lambda (e) 0) (lambda () (/ 5 0))))
    4040
    4141    ;; the three high-level exception handler macros
  • release/4/simple-exceptions/trunk/simple-exceptions.scm

    r31762 r33128  
    33ju (at) jugilo (dot) de
    44
    5 Copyright (c) 2014, Juergen Lorenz
     5Copyright (c) 2014-2016, Juergen Lorenz
    66All rights reserved.
    77
     
    3737(module simple-exceptions
    3838  (export simple-exceptions exception? exception-of? make-exception location
    39           message arguments raise with-handler guard assert*)
     39          message arguments raise with-exn-handler guard assert*)
    4040  (import scheme
    4141          (only chicken
     
    146146    (##sys#abort exn)))
    147147
    148 ;;; (with-handler handler thunk)
     148;;; (with-exn-handler handler thunk)
    149149;;; ----------------------------
    150150;;; wrapping Chicken's with-exception-handler into pop-and-call
    151151;;; to avoid the generation of infinite loops
    152 (define (with-handler handler thunk)
     152(define (with-exn-handler handler thunk)
    153153  ;((call-with-current-continuation
    154154  (continuation-capture
     
    183183      (arguments exn)
    184184      (raise exn)
    185       (with-handler handler thunk)
     185      (with-exn-handler handler thunk)
    186186      (handle-exceptions exn handle-xpr xpr . xprs)
    187187      (guard (exn cond-clause . cond-clauses) xpr . xprs)
  • release/4/simple-exceptions/trunk/simple-exceptions.setup

    r31762 r33128  
    77 'simple-exceptions
    88 '("simple-exceptions.so" "simple-exceptions.import.so")
    9  '((version "0.1")))
     9 '((version "0.2")))
  • release/4/simple-exceptions/trunk/tests/run.scm

    r31762 r33128  
    3030   
    3131    ;; exception handler procedure
    32     (not (with-handler
     32    (not (with-exn-handler
    3333           (lambda (exn)
    3434             (if ((exception-of? 'list-empty) exn)
     
    3737           (lambda () (try-car '()))))
    3838   
    39     (zero? (with-handler (lambda (e) 0) (lambda () (/ 5 0))))
     39    (zero? (with-exn-handler (lambda (e) 0) (lambda () (/ 5 0))))
    4040
    4141    ;; the three high-level exception handler macros
Note: See TracChangeset for help on using the changeset viewer.