From d523f564aa1c00207f22632499af5aac930b6ec4 Mon Sep 17 00:00:00 2001
From: Lassi Kortela <lassi@lassi.io>
Date: Mon, 17 Aug 2020 20:31:02 +0300
Subject: [PATCH] Add reader flags from John

Any mistakes transcription are my fault.
---
 hash-bang-syntax.scm | 14 +++++++++++++-
 hash-syntax.scm      |  6 ++++++
 2 files changed, 19 insertions(+), 1 deletion(-)

diff --git a/hash-bang-syntax.scm b/hash-bang-syntax.scm
index 894a8b5..39ba636 100644
--- a/hash-bang-syntax.scm
+++ b/hash-bang-syntax.scm
@@ -22,6 +22,10 @@
 (role keyword)
 (description "start keyword arguments in lambda list [DSSSL]")
 
+(id larceny)
+(role directive)
+(description "implies #!no-fold-case and #!err5rs [Larceny]")
+
 (id no-fold-case)
 (role directive)
 (description "change to case sensitive identifiers [R7RS]")
@@ -34,13 +38,21 @@
 (role keyword)
 (description "start optional arguments in lambda list [DSSSL]")
 
+(id err5rs)
+(role directive)
+(description "change to R7RS/R6RS syntax with extensions [Larceny]")
+
+(id r5rs)
+(role directive)
+(description "change to R7RS syntax with #!fold-case [Larceny]")
+
 (id r6rs)
 (role directive)
 (description "change to R6RS read syntax [R6RS]")
 
 (id r7rs)
 (role directive)
-(description "change to R7RS read syntax")
+(description "change to R7RS syntax with #!no-fold-case [Gauche, Larceny]")
 
 (id rest)
 (role keyword)
diff --git a/hash-syntax.scm b/hash-syntax.scm
index 1ceff07..5bbdced 100644
--- a/hash-syntax.scm
+++ b/hash-syntax.scm
@@ -58,6 +58,12 @@
 (id "#b")
 (description "Binary integer [R2RS+]")
 
+(id "#ci")
+(description "Change to case insensitive identifiers [Chicken]")
+
+(id "#cs")
+(description "Change to case sensitive identifiers [Chicken]")
+
 (id "#d")
 (description "Decimal number [R2RS+]")