[PATCH] * types.db: Fix set-parameterized-read-syntax! , set-sharp-read-syntax! types

[megane]

Hi,

here's a small patch for #1733.

>From 37ec1f2776c9e4a5a760cabd18c339d3da3f622e Mon Sep 17 00:00:00 2001
From: megane <meganeka@gmail.com>
Date: Sat, 13 Mar 2021 12:25:55 +0200
Subject: [PATCH] * types.db: Fix set-parameterized-read-syntax! ,
 set-sharp-read-syntax! types

Both take CHAR-OR-SYMBOL, not just char.

Fixes #1733
---
 types.db | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/types.db b/types.db
index 587a081f..ae989220 100644
--- a/types.db
+++ b/types.db
@@ -1141,7 +1141,7 @@
 
 (chicken.read-syntax#set-parameterized-read-syntax!
  (#(procedure #:clean #:enforce) 
chicken.read-syntax#set-parameterized-read-syntax!
-  (char (or false (procedure (input-port fixnum) . *)))
+  ((or char symbol) (or false (procedure (input-port fixnum) . *)))
   undefined))
 
 (chicken.read-syntax#set-read-syntax!
@@ -1151,7 +1151,7 @@
 
 (chicken.read-syntax#set-sharp-read-syntax!
  (#(procedure #:clean #:enforce) chicken.read-syntax#set-sharp-read-syntax!
-  (char (or false (procedure (input-port) . *))) undefined))
+  ((or char symbol) (or false (procedure (input-port) . *))) undefined))
 
 
 ;; time
-- 
2.17.1