=> should not be hyperlinked to cond arrow.

This commit is contained in:
Leif Andersen 2016-01-04 13:49:40 -07:00
parent 961ab31776
commit 7eee46c4d3

View File

@ -453,11 +453,11 @@ Step-by-step, expansion proceeds as follows:
@racketblock[
(define-for-cbr do-f (a b)
() (swap a b))
=> (define-for-cbr do-f (b)
(unsyntax @tt{=>}) (define-for-cbr do-f (b)
([a get_1 put_1]) (swap a b))
=> (define-for-cbr do-f ()
(unsyntax @tt{=>}) (define-for-cbr do-f ()
([a get_1 put_1] [b get_2 put_2]) (swap a b))
=> (define (do-f get_1 get_2 put_1 put_2)
(unsyntax @tt{=>}) (define (do-f get_1 get_2 put_1 put_2)
(define-get/put-id a get_1 put_1)
(define-get/put-id b get_2 put_2)
(swap a b))