A few more stray "racunit"s.
original commit: 5c702976c216362aab695a1c973fb17948b23149
This commit is contained in:
parent
3355f0d731
commit
4306ef78a7
|
@ -10,7 +10,7 @@
|
|||
;; really badly wrong.
|
||||
|
||||
(: check (All (a) ((a a -> Boolean) a a -> Boolean)))
|
||||
;; Simple check function as RacUnit doesn't work in Typed Scheme (yet)
|
||||
;; Simple check function as RackUnit doesn't work in Typed Scheme (yet)
|
||||
(define (check f a b)
|
||||
(if (f a b)
|
||||
#t
|
||||
|
|
|
@ -5,7 +5,7 @@
|
|||
scheme/unsafe/ops)
|
||||
|
||||
(: check (All (a) ((a a -> Boolean) a a -> Boolean)))
|
||||
;; Simple check function as RacUnit doesn't work in Typed Scheme (yet)
|
||||
;; Simple check function as RackUnit doesn't work in Typed Scheme (yet)
|
||||
(define (check f a b)
|
||||
(if (f a b)
|
||||
#t
|
||||
|
|
|
@ -11,7 +11,7 @@
|
|||
;; really badly wrong.
|
||||
|
||||
(: check (All (a) ((a a -> Boolean) a a -> Boolean)))
|
||||
;; Simple check function as RacUnit doesn't work in Typed Scheme (yet)
|
||||
;; Simple check function as RackUnit doesn't work in Typed Scheme (yet)
|
||||
(define (check f a b)
|
||||
(if (f a b)
|
||||
#t
|
||||
|
|
Loading…
Reference in New Issue
Block a user