Provide run for ad-hoc testing

This commit is contained in:
Tony Garnock-Jones 2014-05-21 16:26:34 -04:00
parent f9585b7cbb
commit 4e031e7278
1 changed files with 2 additions and 0 deletions

View File

@ -5,6 +5,8 @@
(require minimart)
(require logbook)
(provide run)
(struct ping (src dst timestamp) #:transparent)
(define (send-ping src dst)