Re: confinement's read-hash-extend gives 'unknown number radix' for all tagged forms

[Jelle Licht]

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