From 71e1b33d999342bc499e60352ab21e7e5fb300b0 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Thu, 30 Jul 2009 21:00:04 +0000 Subject: [PATCH] struct->vector svn: r15645 original commit: 55c9f55cf3e127fa748c619e78adffa5215b3750 --- collects/typed-scheme/private/base-env.ss | 2 ++ 1 file changed, 2 insertions(+) diff --git a/collects/typed-scheme/private/base-env.ss b/collects/typed-scheme/private/base-env.ss index 27d7a009..55e0a681 100644 --- a/collects/typed-scheme/private/base-env.ss +++ b/collects/typed-scheme/private/base-env.ss @@ -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