set-sharp-read-syntax! has an incorrect type annotation in types.db

[Diego]

In types.db of chicken-core, set-sharp-read-syntax! has the following type declaration:

(chicken.read-syntax#set-sharp-read-syntax!
 (#(procedure #:clean #:enforce) chicken.read-syntax#set-sharp-read-syntax!
  (char (or false (procedure (input-port) . *))) undefined))

But per ​the documentation (and actual functionality), that should instead be be:

(chicken.read-syntax#set-sharp-read-syntax!
 (#(procedure #:clean #:enforce) chicken.read-syntax#set-sharp-read-syntax!
  ((or char symbol) (or false (procedure (input-port) . *))) undefined))

The incorrect type declaration leads to compilation warnings even on correct usage.

[Kooda]

Fixed in 927837d6a01445e01d2ec074c3d46c324e69d4ba