8 lines
228 B
Racket
8 lines
228 B
Racket
#lang racket/base
|
|
(require "private/cmdline-tool.rkt")
|
|
|
|
(with-handlers ([exn:fail?
|
|
(lambda (e)
|
|
((error-display-handler) (exn-message e) e)
|
|
(exit 1))])
|
|
(void (start #f))) |