Finish converting scheme' ->
racket'.
Everything compiles fine now even if the compatibility bindings are
gone.
original commit: a38f384a00
This commit is contained in:
parent
333c1506a9
commit
15cd89c4af
|
@ -25,15 +25,15 @@
|
|||
(list (to-flow spacer)
|
||||
(to-flow sec)
|
||||
(to-flow spacer)
|
||||
(to-flow (scheme sym0))
|
||||
(to-flow (racket sym0))
|
||||
(to-flow spacer)
|
||||
(to-flow (scheme flag0)))
|
||||
(to-flow (racket flag0)))
|
||||
(list (to-flow spacer)
|
||||
(to-flow spacer)
|
||||
(to-flow spacer)
|
||||
(to-flow (scheme sym))
|
||||
(to-flow (racket sym))
|
||||
(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
|
||||
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
|
||||
@racket[symbol->imap-flag] procedures convert IMAP flags to convenient
|
||||
symbols and vice-versa:
|
||||
|
|
|
@ -10,14 +10,14 @@
|
|||
#f
|
||||
(append
|
||||
(list
|
||||
(list (to-flow (scheme 'type))
|
||||
(list (to-flow (racket 'type))
|
||||
(to-flow spacer)
|
||||
(to-flow (scheme 'sub-type0))
|
||||
(to-flow (racket 'sub-type0))
|
||||
(to-flow spacer)
|
||||
(to-flow ref0))
|
||||
(list (to-flow spacer)
|
||||
(to-flow spacer)
|
||||
(to-flow (scheme 'sub-type))
|
||||
(to-flow (racket 'sub-type))
|
||||
(to-flow spacer)
|
||||
(to-flow ref))
|
||||
...)
|
||||
|
|
|
@ -153,21 +153,21 @@ Raised when the server produces a malformed response.}
|
|||
|
||||
@racketblock[
|
||||
#,pt (require net/pop3)
|
||||
#,pt (define c (connect-to-server "cs.rice.edu"))
|
||||
#,pt (authenticate/plain-text "scheme" "********" c)
|
||||
#,pt (define c (connect-to-server "foo.bar.com"))
|
||||
#,pt (authenticate/plain-text "bob" "********" c)
|
||||
#,pt (get-mailbox-status c)
|
||||
196
|
||||
816400
|
||||
#,pt (get-message/headers c 100)
|
||||
("Date: Thu, 6 Nov 1997 12:34:18 -0600 (CST)"
|
||||
"Message-Id: <199711061834.MAA11961@new-world.cs.rice.edu>"
|
||||
"From: Shriram Krishnamurthi <shriram@cs.rice.edu>"
|
||||
"Message-Id: <199711061834.MAA11961@foo.bar.com>"
|
||||
"From: Alice <alice@foo.bar.com>"
|
||||
....
|
||||
"Status: RO")
|
||||
#,pt (get-message/complete c 100)
|
||||
("Date: Thu, 6 Nov 1997 12:34:18 -0600 (CST)"
|
||||
"Message-Id: <199711061834.MAA11961@new-world.cs.rice.edu>"
|
||||
"From: Shriram Krishnamurthi <shriram@cs.rice.edu>"
|
||||
"Message-Id: <199711061834.MAA11961@foo.bar.com>"
|
||||
"From: Alice <alice@foo.bar.com>"
|
||||
....
|
||||
"Status: RO")
|
||||
("some body" "text" "goes" "." "here" "." "")
|
||||
|
|
|
@ -395,4 +395,3 @@ except @racket[current-https-protocol]. Note that the exports of
|
|||
@defsignature[url+scheme^ (url^)]{
|
||||
|
||||
Adds @racket[current-connect-scheme] to @racket[url^].}
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user