From bff6400fb4a6ba102f087b04ab38dfcaaf53b8a8 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Wed, 21 Apr 2010 16:06:44 -0400 Subject: [PATCH] rename scheme to racket --- collects/typed-scheme/typecheck/tc-app.ss | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/typed-scheme/typecheck/tc-app.ss b/collects/typed-scheme/typecheck/tc-app.ss index aacdd16277..dcaca4d229 100644 --- a/collects/typed-scheme/typecheck/tc-app.ss +++ b/collects/typed-scheme/typecheck/tc-app.ss @@ -478,9 +478,9 @@ kw-list (#%plain-app list . kw-arg-list) . pos-args) - #:declare cpce (id-from 'checked-procedure-check-and-extract 'scheme/private/kw) - #:declare s-kp (id-from 'struct:keyword-procedure 'scheme/private/kw) - #:declare kpe (id-from 'keyword-procedure-extract 'scheme/private/kw) + #:declare cpce (id-from 'checked-procedure-check-and-extract 'racket/private/kw) + #:declare s-kp (id-from 'struct:keyword-procedure 'racket/private/kw) + #:declare kpe (id-from 'keyword-procedure-extract 'racket/private/kw) (match (tc-expr #'fn) [(tc-result1: (Poly: vars (Function: (list (and ar (arr: dom rng (and rest #f) (and drest #f) kw-formals))))))