17 lines
471 B
Racket
17 lines
471 B
Racket
#;
|
|
(exn-pred exn:fail:contract?)
|
|
#lang racket/base
|
|
|
|
(module f-t typed/racket
|
|
(: flomap-transform (case-> (Integer Integer -> Integer)
|
|
(Integer Integer Integer Integer Integer Integer -> Integer)))
|
|
(define flomap-transform
|
|
(case-lambda
|
|
[(fm t) fm]
|
|
[(fm t x-start y-start x-end y-end) fm]))
|
|
(provide flomap-transform))
|
|
|
|
(require 'f-t)
|
|
|
|
(flomap-transform 2 3 4) ; only accepts 2 or 6 arguments
|