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

Finish converting scheme' -> racket'.

Browse Source 
Everything compiles fine now even if the compatibility bindings are
gone.

original commit: a38f384a00
This commit is contained in:
Eli Barzilay 2011-06-27 22:24:08 -04:00
parent 333c1506a9
commit 15cd89c4af
4 changed files with 14 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/net/scribblings/imap.scrbl
View File

@ -25,15 +25,15 @@
(list (to-flow spacer) (list (to-flow spacer)
(to-flow sec) (to-flow sec)
(to-flow spacer) (to-flow spacer)
(to-flow (scheme sym0)) (to-flow (racket sym0))
(to-flow spacer) (to-flow spacer)
(to-flow (scheme flag0))) (to-flow (racket flag0)))
(list (to-flow spacer) (list (to-flow spacer)
(to-flow spacer) (to-flow spacer)
(to-flow spacer) (to-flow spacer)
(to-flow (scheme sym)) (to-flow (racket sym))
(to-flow spacer) (to-flow spacer)
(to-flow (scheme flag))) (to-flow (racket flag)))
...)) ...))
...)))) ...))))
@ -317,7 +317,7 @@ Pending expunges must be handled before calling this function; see
)]{ )]{
An IMAP flag is a symbol, but it is generally not a convenient one to An IMAP flag is a symbol, but it is generally not a convenient one to
use within a Scheme program, because it usually starts with a use within a Racket program, because it usually starts with a
backslash. The @racket[imap-flag->symbol] and backslash. The @racket[imap-flag->symbol] and
@racket[symbol->imap-flag] procedures convert IMAP flags to convenient @racket[symbol->imap-flag] procedures convert IMAP flags to convenient
symbols and vice-versa: symbols and vice-versa:

6
collects/net/scribblings/mime.scrbl
View File

@ -10,14 +10,14 @@
#f #f
(append (append
(list (list
(list (to-flow (scheme 'type)) (list (to-flow (racket 'type))
(to-flow spacer) (to-flow spacer)
(to-flow (scheme 'sub-type0)) (to-flow (racket 'sub-type0))
(to-flow spacer) (to-flow spacer)
(to-flow ref0)) (to-flow ref0))
(list (to-flow spacer) (list (to-flow spacer)
(to-flow spacer) (to-flow spacer)
(to-flow (scheme 'sub-type)) (to-flow (racket 'sub-type))
(to-flow spacer) (to-flow spacer)
(to-flow ref)) (to-flow ref))
...) ...)

12
collects/net/scribblings/pop3.scrbl
View File

@ -153,21 +153,21 @@ Raised when the server produces a malformed response.}
@racketblock[ @racketblock[
#,pt (require net/pop3) #,pt (require net/pop3)
#,pt (define c (connect-to-server "cs.rice.edu")) #,pt (define c (connect-to-server "foo.bar.com"))
#,pt (authenticate/plain-text "scheme" "********" c) #,pt (authenticate/plain-text "bob" "********" c)
#,pt (get-mailbox-status c) #,pt (get-mailbox-status c)
196 196
816400 816400
#,pt (get-message/headers c 100) #,pt (get-message/headers c 100)
("Date: Thu, 6 Nov 1997 12:34:18 -0600 (CST)" ("Date: Thu, 6 Nov 1997 12:34:18 -0600 (CST)"
"Message-Id: <199711061834.MAA11961@new-world.cs.rice.edu>" "Message-Id: <199711061834.MAA11961@foo.bar.com>"
"From: Shriram Krishnamurthi <shriram@cs.rice.edu>" "From: Alice <alice@foo.bar.com>"
.... ....
"Status: RO") "Status: RO")
#,pt (get-message/complete c 100) #,pt (get-message/complete c 100)
("Date: Thu, 6 Nov 1997 12:34:18 -0600 (CST)" ("Date: Thu, 6 Nov 1997 12:34:18 -0600 (CST)"
"Message-Id: <199711061834.MAA11961@new-world.cs.rice.edu>" "Message-Id: <199711061834.MAA11961@foo.bar.com>"
"From: Shriram Krishnamurthi <shriram@cs.rice.edu>" "From: Alice <alice@foo.bar.com>"
.... ....
"Status: RO") "Status: RO")
("some body" "text" "goes" "." "here" "." "") ("some body" "text" "goes" "." "here" "." "")

1
collects/net/scribblings/url.scrbl
View File

@ -395,4 +395,3 @@ except @racket[current-https-protocol]. Note that the exports of
@defsignature[url+scheme^ (url^)]{ @defsignature[url+scheme^ (url^)]{
Adds @racket[current-connect-scheme] to @racket[url^].} Adds @racket[current-connect-scheme] to @racket[url^].}