iskm/learnxinyminutes-docs
1
0
Fork 0
mirror of https://github.com/adambard/learnxinyminutes-docs.git synced 2024-12-23 17:41:41 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

swap' -> swap!'

Browse Source
This commit is contained in:
Eli Barzilay 2013-07-16 02:06:16 -04:00
parent fbd215521f
commit 7a92ee7ab8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racket.html.markdown
View File

@ -441,7 +441,7 @@ vec ; => #(1 2 3 4)
(set! i (add1 i))))
;; Macros are hygienic, you cannot clobber existing variables!
(define-syntax-rule (swap x y)
(define-syntax-rule (swap! x y) ; -! is idomatic for mutation
(let ([tmp x])
(set! x y)
(set! y tmp)))
@ -449,7 +449,7 @@ vec ; => #(1 2 3 4)
(define tmp 1)
(define a 2)
(define b 3)
(swap a b)
(swap! a b)
(printf "tmp = ~a; a = ~a; b = ~a\n" tmp a b) ; tmp is unaffected
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;