1
Fork 0
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:
Marius Vollmer 2001-12-22 13:49:05 +00:00
parent 226297eb51
commit 5ad5a7b6ca

View file

@ -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