[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: confinement's read-hash-extend gives 'unknown number radix' for all
From: |
Jelle Licht |
Subject: |
Re: confinement's read-hash-extend gives 'unknown number radix' for all tagged forms |
Date: |
Mon, 26 Oct 2020 23:10:52 +0100 |
Ludovic Courtès <ludo@gnu.org> writes:
> I mean: yes, a request for a patch. :-)
See attached patch!
>From 2ed72e049e08606336138d425992724caeca655d Mon Sep 17 00:00:00 2001
From: Jelle Licht <jlicht@fsfe.org>
Date: Mon, 26 Oct 2020 22:55:00 +0100
Subject: [PATCH] confinement: Prepend hash extensions.
* modules/system/reader/confinement.scm (compile-module-read-options!): Prepend
hash extensions to %module-reader-sharp-specs.
---
modules/system/reader/confinement.scm | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/modules/system/reader/confinement.scm
b/modules/system/reader/confinement.scm
index 13a7551..a83a396 100644
--- a/modules/system/reader/confinement.scm
+++ b/modules/system/reader/confinement.scm
@@ -92,15 +92,15 @@ that implements those options."
(alternate-guile-reader-token-readers
extended-read-opts)))
(set! sharp-specs
- ;; Append the module's hash extensions. Warning: no attempt is
+ ;; Prepend the module's hash extensions. Warning: no attempt is
;; made to avoid conflicts.
- (append (map (lambda (chr+proc)
+ (append sharp-specs
+ (map (lambda (chr+proc)
(make-token-reader (car chr+proc)
(lambda (chr port read top)
(apply (cdr chr+proc)
(list chr port)))))
- (ensure-reader-hash-extensions module))
- sharp-specs))
+ (ensure-reader-hash-extensions module))))
(set! (%module-reader-sharp-specs module) sharp-specs)
--
2.28.0
- Jelle