mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-29 16:30:19 +02:00
(Sloppy Alist Functions): Amend error messages
shown to match current guile output.
This commit is contained in:
parent
c78a96e063
commit
fd96f380d2
1 changed files with 2 additions and 4 deletions
|
@ -2137,8 +2137,7 @@ whole is not a proper list:
|
|||
(assoc "mary" '((1 . 2) ("key" . "door") . "open sesame"))
|
||||
@result{}
|
||||
ERROR: In procedure assoc in expression (assoc "mary" (quote #)):
|
||||
ERROR: Wrong type argument in position 2 (expecting NULLP): "open sesame"
|
||||
ABORT: (wrong-type-arg)
|
||||
ERROR: Wrong type argument in position 2 (expecting association list): ((1 . 2) ("key" . "door") . "open sesame")
|
||||
|
||||
(sloppy-assoc "mary" '((1 . 2) ("key" . "door") . "open sesame"))
|
||||
@result{}
|
||||
|
@ -2152,8 +2151,7 @@ Secondly, if one of the entries in the specified alist is not a pair:
|
|||
(assoc 2 '((1 . 1) 2 (3 . 9)))
|
||||
@result{}
|
||||
ERROR: In procedure assoc in expression (assoc 2 (quote #)):
|
||||
ERROR: Wrong type argument in position 2 (expecting CONSP): 2
|
||||
ABORT: (wrong-type-arg)
|
||||
ERROR: Wrong type argument in position 2 (expecting association list): ((1 . 1) 2 (3 . 9))
|
||||
|
||||
(sloppy-assoc 2 '((1 . 1) 2 (3 . 9)))
|
||||
@result{}
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue