Changeset 14143 in project


Ignore:
Timestamp:
04/07/09 04:44:57 (11 years ago)
Author:
Kon Lovett
Message:

Dup ##sys#signal-hook in forward refs.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/library.scm

    r13953 r14143  
    158158     ##sys#set-finalizer! open-output-string get-output-string read ##sys#make-pointer
    159159     ##sys#pointer->address number->string ##sys#flush-output ##sys#break-entry ##sys#step
    160      ##sys#apply-values ##sys#signal-hook ##sys#get-call-chain ##sys#really-print-call-chain
     160     ##sys#apply-values ##sys#get-call-chain ##sys#really-print-call-chain
    161161     string->keyword keyword? string->keyword getenv ##sys#number->string ##sys#copy-bytes
    162162     call-with-current-continuation ##sys#string->number ##sys#inexact->exact ##sys#exact->inexact
     
    37333733  (let ([oldh ##sys#current-exception-handler])
    37343734    (##sys#dynamic-wind
    3735         (lambda () (set! ##sys#current-exception-handler handler))
    3736         thunk
    3737         (lambda () (set! ##sys#current-exception-handler oldh)) ) ) )
     3735      (lambda () (set! ##sys#current-exception-handler handler))
     3736      thunk
     3737      (lambda () (set! ##sys#current-exception-handler oldh)) ) ) )
    37383738
    37393739(define (current-exception-handler) ##sys#current-exception-handler)
Note: See TracChangeset for help on using the changeset viewer.