Changeset 34686 in project


Ignore:
Timestamp:
10/10/17 12:45:28 (8 days ago)
Author:
sjamaan
Message:

release/5/srfi-18: update with latest changes from chicken-5-eggs

Location:
release/5/srfi-18/trunk
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • release/5/srfi-18/trunk/srfi-18.egg

    r34025 r34686  
    55 (category hell)
    66 (license "BSD")
    7  (components (extension srfi-18 (types-file))))
     7 (test-dependencies compile-file)
     8 (components (extension srfi-18 #;(types-file))))
  • release/5/srfi-18/trunk/srfi-18.scm

    r33727 r34686  
    8282        (chicken)
    8383        (chicken flonum)
     84        (chicken condition)
    8485        (chicken time))
    8586
     
    125126;;; Exception handling:
    126127
    127 (define raise ##sys#signal)
     128(define raise signal)
    128129
    129130(define (join-timeout-exception? x)
     
    234235                ((terminated)
    235236                 (return
    236                   (##sys#signal
     237                  (signal
    237238                   (##sys#make-structure
    238239                    'condition '(uncaught-exception)
     
    243244                      (if tosupplied
    244245                          toval
    245                           (##sys#signal
     246                          (signal
    246247                           (##sys#make-structure 'condition '(join-timeout-exception) '())) ) )
    247248                     (begin
     
    327328           (define (check)
    328329             (when (##sys#slot mutex 4) ; abandoned
    329                (return (##sys#signal (##sys#make-structure 'condition '(abandoned-mutex-exception) (list (##sys#slot mutex 1))))) ) )
     330               (return (signal (##sys#make-structure 'condition '(abandoned-mutex-exception) (list (##sys#slot mutex 1)))))))
    330331           (define (assign)
    331332             (##sys#setislot ct 11 #f)
     
    481482  (dbg "signal " thread exn)
    482483  (if (eq? thread ##sys#current-thread)
    483       (##sys#signal exn)
     484      (signal exn)
    484485      (let ([old (##sys#slot thread 1)]
    485486            [blocked (##sys#slot thread 11)])
     
    494495         thread 1
    495496         (lambda ()
    496            (##sys#signal exn)
     497           (signal exn)
    497498           (old) ) )
    498499        (##sys#setslot thread 3 'blocked)
     
    505506  (let ([old ##sys#read-prompt-hook])
    506507    (lambda ()
    507       (when (or (##core#inline "C_i_tty_forcedp") (##sys#tty-port? ##sys#standard-input))
     508      (when (or (##core#inline "C_i_tty_forcedp")
     509                (##sys#tty-port? ##sys#standard-input))
    508510        (old)
    509511        (##sys#thread-block-for-i/o! ##sys#current-thread 0 #:input)
    510         (thread-yield!)))))
     512        (thread-yield!)))) )
    511513
    512514
  • release/5/srfi-18/trunk/tests/mutex-test.scm

    r33353 r34686  
    11;;;; mutex-test.scm
    22
    3 (use chicken.time srfi-18)
     3(use chicken.format chicken.time srfi-18)
    44
    55(define test-has-failed #f)
  • release/5/srfi-18/trunk/tests/run.scm

    r33353 r34686  
    1 (use utils)
     1(use (compile-file))
    22
    33(load "simple-thread-test.scm")
Note: See TracChangeset for help on using the changeset viewer.