Changeset 5438 in project


Ignore:
Timestamp:
08/16/07 04:37:35 (14 years ago)
Author:
Kon Lovett
Message:

Added misc-extn extension element.

Location:
misc-extn
Files:
8 edited

Legend:

Unmodified
Added
Removed
  • misc-extn/tags/3.0/misc-extn-control-support.scm

    r5437 r5438  
    1111    (no-bound-checks)
    1212    (export
    13       assure identify-error errorf
    14       ; DEPRECATED
    15       chain-implicit-exit-handler) ) )
    16 
    17 ;;; Exit Handler
    18 
    19 ; DEPRECATED
    20 ;; Adds the thunk to the front of the implicit-exit-handler chain.
    21 
    22 (define (chain-implicit-exit-handler thunk)
    23   (on-exit thunk)
    24   #;
    25   (let ([chained (implicit-exit-handler)])
    26     (implicit-exit-handler
    27       (lambda ()
    28         (thunk)
    29         (chained)) ) ) )
     13      assure identify-error errorf) ) )
    3014
    3115;;; Error Invocation
  • misc-extn/tags/3.0/misc-extn-control.scm

    r5437 r5438  
    1 ;;;; misc-extn.scm
     1;;;; misc-extn-control.scm
    22;;;; Kon Lovett, Jul '07
    33
  • misc-extn/tags/3.0/misc-extn-eggdoc.scm

    r5437 r5438  
    156156          "the template " (tt "(OP <> ARG ...)") " is used.") )
    157157
    158         #; ; DEPRECATED
    159         (procedure "(chain-implicit-exit-handler THUNK)"
    160           (p "Adds the " (tt "THUNK") " to the front of the "
    161           "implicit-exit-handler chain.") )
    162 
    163158        (procedure "(assure EXPRESSION [ERROR-ARGUMENT ...])"
    164159          (p "When " (tt "EXPRESSION") " yields " (code "#f") " invoke "
  • misc-extn/tags/3.0/misc-extn.setup

    r5437 r5438  
    11(include "setup-header")
     2
     3(install-extension 'misc-extn '("misc-extn.html") `((version ,*version*) (documentation "misc-extn.html")))
    24
    35(install-syntax misc-extn-numeric *version* (documentation "misc-extn.html"))
  • misc-extn/trunk/misc-extn-control-support.scm

    r5437 r5438  
    1111    (no-bound-checks)
    1212    (export
    13       assure identify-error errorf
    14       ; DEPRECATED
    15       chain-implicit-exit-handler) ) )
    16 
    17 ;;; Exit Handler
    18 
    19 ; DEPRECATED
    20 ;; Adds the thunk to the front of the implicit-exit-handler chain.
    21 
    22 (define (chain-implicit-exit-handler thunk)
    23   (on-exit thunk)
    24   #;
    25   (let ([chained (implicit-exit-handler)])
    26     (implicit-exit-handler
    27       (lambda ()
    28         (thunk)
    29         (chained)) ) ) )
     13      assure identify-error errorf) ) )
    3014
    3115;;; Error Invocation
  • misc-extn/trunk/misc-extn-control.scm

    r5437 r5438  
    1 ;;;; misc-extn.scm
     1;;;; misc-extn-control.scm
    22;;;; Kon Lovett, Jul '07
    33
  • misc-extn/trunk/misc-extn-eggdoc.scm

    r5437 r5438  
    156156          "the template " (tt "(OP <> ARG ...)") " is used.") )
    157157
    158         #; ; DEPRECATED
    159         (procedure "(chain-implicit-exit-handler THUNK)"
    160           (p "Adds the " (tt "THUNK") " to the front of the "
    161           "implicit-exit-handler chain.") )
    162 
    163158        (procedure "(assure EXPRESSION [ERROR-ARGUMENT ...])"
    164159          (p "When " (tt "EXPRESSION") " yields " (code "#f") " invoke "
  • misc-extn/trunk/misc-extn.setup

    r5437 r5438  
    11(include "setup-header")
     2
     3(install-extension 'misc-extn '("misc-extn.html") `((version ,*version*) (documentation "misc-extn.html")))
    24
    35(install-syntax misc-extn-numeric *version* (documentation "misc-extn.html"))
Note: See TracChangeset for help on using the changeset viewer.