diff options
| author | Maxime Devos <maximedevos@telenet.be> | 2021-05-29 23:03:31 +0200 |
|---|---|---|
| committer | Maxime Devos <maximedevos@telenet.be> | 2021-09-21 12:08:43 +0200 |
| commit | ce0f7d05d26b3b6af5b36bcfad653a6fb6ef2013 (patch) | |
| tree | cc549c011111f1b24a7f5ef2ef580e2663032aac | |
| parent | 8d36116cb7275314cf27c0c2a886e00807d51dea (diff) | |
| download | gnunet-scheme-ce0f7d05d26b3b6af5b36bcfad653a6fb6ef2013.tar.gz gnunet-scheme-ce0f7d05d26b3b6af5b36bcfad653a6fb6ef2013.zip | |
netstruct: Raise &unwritable, not an &unreadable, in set%!.
A test will be added. Note that Guile's implementation of
SRFI-26 is buggy and the test will (incorrectly) pass
before this patch. It is being fixed.
* gnu/gnunet/netstruct/procedural.scm (set%!): Raise an &unwritable
instead of an &unreadable.
| -rw-r--r-- | gnu/gnunet/netstruct/procedural.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gnu/gnunet/netstruct/procedural.scm b/gnu/gnunet/netstruct/procedural.scm index 4842ca3..4004c47 100644 --- a/gnu/gnunet/netstruct/procedural.scm +++ b/gnu/gnunet/netstruct/procedural.scm | |||
| @@ -235,7 +235,7 @@ structure @var{ns} in the bytevector slice @var{ns}." | |||
| 235 | (~set (~set (netstruct-vtable part)))) | 235 | (~set (~set (netstruct-vtable part)))) |
| 236 | (unless ~set | 236 | (unless ~set |
| 237 | (raise (condition | 237 | (raise (condition |
| 238 | (make-unreadable) | 238 | (make-unwritable) |
| 239 | (make-who-condition 'set%!) | 239 | (make-who-condition 'set%!) |
| 240 | (make-message-condition "field cannot be set")))) | 240 | (make-message-condition "field cannot be set")))) |
| 241 | ((~set part) relevant value))) | 241 | ((~set part) relevant value))) |