14 lines
403 B
Racket
14 lines
403 B
Racket
#lang racket/base
|
|
;; Untyped-Racket support for Timer driver.
|
|
|
|
(require "timer.rkt")
|
|
(provide (except-out (all-from-out "timer.rkt")
|
|
set-timer
|
|
set-timer-pattern
|
|
timer-expired
|
|
timer-expired-pattern)
|
|
(rename-out [set-timer-repr set-timer]
|
|
[set-timer-repr set-timer-pattern]
|
|
[timer-expired-repr timer-expired]
|
|
[timer-expired-repr timer-expired-pattern]))
|