The code for 'signal handling' with racket at Rosetta Code:
#lang racket
(define now current-milliseconds)
(define start (now))
(with-handlers ([exn:break?
(λ(x)
(define elapsed (/ (- (now) start) 1000.))
(displayln (~a "Total time: " elapse
On Wed, 16 Nov 2016 21:42:14 -0600,
Ryan Culpepper wrote:
>
> On 11/16/2016 07:51 PM, Vincent St-Amour wrote:
> > FWIW, Eric Dobson wrote a very nice `define-literal-syntax-class` macro
> > that is used extensively inside TR.
> >
> >
> > https://github.com/racket/typed-racket/blob/master/typ
2 matches
Mail list logo