struct->vector

svn: r15645

original commit: 55c9f55cf3e127fa748c619e78adffa5215b3750
This commit is contained in:
Sam Tobin-Hochstadt 2009-07-30 21:00:04 +00:00
parent 93bdf0ebba
commit 71e1b33d99

View File

@ -278,6 +278,8 @@
[call-with-current-continuation (-poly (a b) (((a . -> . (Un)) . -> . b) . -> . (Un a b)))]
[call-with-escape-continuation (-poly (a b) (((a . -> . (Un)) . -> . b) . -> . (Un a b)))]
[struct->vector (Univ . -> . (-vec Univ))]
[quotient (-Integer -Integer . -> . -Integer)]
[remainder (-Integer -Integer . -> . -Integer)]
[quotient/remainder