mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-20 19:50:24 +02:00
(Alist Example): Changed "Bismarck" to "Pierre". Thanks to Ron
Peterson!
This commit is contained in:
parent
226297eb51
commit
5ad5a7b6ca
1 changed files with 4 additions and 4 deletions
|
@ -2078,9 +2078,9 @@ Here is a longer example of how alists may be used in practice.
|
||||||
|
|
||||||
;; We left out South Dakota.
|
;; We left out South Dakota.
|
||||||
(set! capitals
|
(set! capitals
|
||||||
(assoc-set! capitals "South Dakota" "Bismarck"))
|
(assoc-set! capitals "South Dakota" "Pierre"))
|
||||||
capitals
|
capitals
|
||||||
@result{} (("South Dakota" . "Bismarck")
|
@result{} (("South Dakota" . "Pierre")
|
||||||
("New York" . "Albany")
|
("New York" . "Albany")
|
||||||
("Oregon" . "Salem")
|
("Oregon" . "Salem")
|
||||||
("Florida" . "Miami"))
|
("Florida" . "Miami"))
|
||||||
|
@ -2089,7 +2089,7 @@ capitals
|
||||||
(set! capitals
|
(set! capitals
|
||||||
(assoc-set! capitals "Florida" "Tallahassee"))
|
(assoc-set! capitals "Florida" "Tallahassee"))
|
||||||
capitals
|
capitals
|
||||||
@result{} (("South Dakota" . "Bismarck")
|
@result{} (("South Dakota" . "Pierre")
|
||||||
("New York" . "Albany")
|
("New York" . "Albany")
|
||||||
("Oregon" . "Salem")
|
("Oregon" . "Salem")
|
||||||
("Florida" . "Tallahassee"))
|
("Florida" . "Tallahassee"))
|
||||||
|
@ -2098,7 +2098,7 @@ capitals
|
||||||
(set! capitals
|
(set! capitals
|
||||||
(assoc-remove! capitals "Oregon"))
|
(assoc-remove! capitals "Oregon"))
|
||||||
capitals
|
capitals
|
||||||
@result{} (("South Dakota" . "Bismarck")
|
@result{} (("South Dakota" . "Pierre")
|
||||||
("New York" . "Albany")
|
("New York" . "Albany")
|
||||||
("Florida" . "Tallahassee"))
|
("Florida" . "Tallahassee"))
|
||||||
@end lisp
|
@end lisp
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue