~ chicken-core (chicken-5) f0b9817de5331d8539bd74015e76707ae006ac19
commit f0b9817de5331d8539bd74015e76707ae006ac19
Author: Evan Hanson <evhan@foldling.org>
AuthorDate: Tue Apr 5 20:49:51 2016 +1200
Commit: Evan Hanson <evhan@foldling.org>
CommitDate: Tue Apr 5 21:20:16 2016 +1200
Fix types.db entry for set-read-syntax! to allow symbols as read-marks
diff --git a/types.db b/types.db
index 32ed0787..045b93fb 100644
--- a/types.db
+++ b/types.db
@@ -975,7 +975,7 @@
(chicken.read-syntax#set-read-syntax!
(#(procedure #:clean #:enforce) chicken.read-syntax#set-read-syntax!
- (char (or false (procedure (input-port) . *)))
+ ((or char symbol) (or false (procedure (input-port) . *)))
undefined))
(chicken.read-syntax#set-sharp-read-syntax!
Trap