suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

rename scheme to racket

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2010-04-21 16:06:44 -04:00
parent 0acfa7e525
commit bff6400fb4
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/typed-scheme/typecheck/tc-app.ss
View File

@ -478,9 +478,9 @@
kw-list kw-list
(#%plain-app list . kw-arg-list) (#%plain-app list . kw-arg-list)
. pos-args) . pos-args)
#:declare cpce (id-from 'checked-procedure-check-and-extract 'scheme/private/kw) #:declare cpce (id-from 'checked-procedure-check-and-extract 'racket/private/kw)
#:declare s-kp (id-from 'struct:keyword-procedure 'scheme/private/kw) #:declare s-kp (id-from 'struct:keyword-procedure 'racket/private/kw)
#:declare kpe (id-from 'keyword-procedure-extract 'scheme/private/kw) #:declare kpe (id-from 'keyword-procedure-extract 'racket/private/kw)
(match (tc-expr #'fn) (match (tc-expr #'fn)
[(tc-result1: (Poly: vars [(tc-result1: (Poly: vars
(Function: (list (and ar (arr: dom rng (and rest #f) (and drest #f) kw-formals)))))) (Function: (list (and ar (arr: dom rng (and rest #f) (and drest #f) kw-formals))))))