Add type for `compose'
This commit is contained in:
parent
61188f3e44
commit
24bddafa82
|
@ -15,6 +15,7 @@
|
||||||
(only-in '#%kernel [apply kernel:apply])
|
(only-in '#%kernel [apply kernel:apply])
|
||||||
(only-in racket/private/pre-base new-apply-proc)
|
(only-in racket/private/pre-base new-apply-proc)
|
||||||
scheme/promise scheme/system
|
scheme/promise scheme/system
|
||||||
|
racket/function
|
||||||
racket/mpair
|
racket/mpair
|
||||||
racket/base
|
racket/base
|
||||||
(only-in string-constants/private/only-once maybe-print-message)
|
(only-in string-constants/private/only-once maybe-print-message)
|
||||||
|
@ -1020,3 +1021,5 @@
|
||||||
[module-compiled-language-info
|
[module-compiled-language-info
|
||||||
(-> -Compiled-Module-Expression
|
(-> -Compiled-Module-Expression
|
||||||
(-opt (make-HeterogenousVector (list -Module-Path -Symbol Univ))))]
|
(-opt (make-HeterogenousVector (list -Module-Path -Symbol Univ))))]
|
||||||
|
|
||||||
|
[compose (-poly (a b c) (-> (-> b c) (-> a b) (-> a c)))]
|
Loading…
Reference in New Issue
Block a user