=> should not be hyperlinked to cond arrow.
This commit is contained in:
parent
961ab31776
commit
7eee46c4d3
|
@ -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))
|
||||
|
|
Loading…
Reference in New Issue
Block a user