Changeset 40074 in project


Ignore:
Timestamp:
05/05/21 16:32:18 (6 weeks ago)
Author:
felix winkelmann
Message:

mdh: try to catch process exit on error and close database

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/5/mdh/trunk/mdh.scm

    r40054 r40074  
    1212(import (chicken foreign))
    1313(import (chicken format))
     14(import (chicken platform))
    1415(import-for-syntax (chicken string))
    1516
     
    256257    (close-globals)))
    257258
     259(when (or (not (feature? #:csi))
     260          (feature? #:chicken-script))
     261  (set! ##sys#error-handler
     262    (let ((old ##sys#error-handler))
     263      (lambda args
     264        (close-globals)
     265        (apply old args)))))
     266
    258267)
Note: See TracChangeset for help on using the changeset viewer.