From c738e7f77a5c5d7692f6d1ad407fe096a984bd45 Mon Sep 17 00:00:00 2001
From: Lassi Kortela <lassi@lassi.io>
Date: Mon, 10 Aug 2020 01:33:34 +0300
Subject: [PATCH] Add Scheme standards

---
 generate.scm        | 11 +++++++++++
 scheme-standard.scm | 32 ++++++++++++++++++++++++++++++++
 2 files changed, 43 insertions(+)
 create mode 100644 scheme-standard.scm

diff --git a/generate.scm b/generate.scm
index e9e765d..10a1bd2 100644
--- a/generate.scm
+++ b/generate.scm
@@ -115,6 +115,16 @@
 
 ;;
 
+(define (scheme-standard)
+  (registry
+   "Scheme standards"
+   "scheme-standard"
+   '(p)
+   (tabulate
+    '("ID" "Name")
+    (map the-usual
+         (sort-by-id (group-file 'id "scheme-standard.scm"))))))
+
 (define (scheme-id)
   (registry
    "Scheme implementations"
@@ -275,6 +285,7 @@
          " Source is in a "
          (a (@ (href "https://github.com/srfi-explorations/registry"))
             "git repository") ".")
+      ,(scheme-standard)
       ,(scheme-id)
       ,(operating-system)
       ,(machine)
diff --git a/scheme-standard.scm b/scheme-standard.scm
new file mode 100644
index 0000000..f0980bf
--- /dev/null
+++ b/scheme-standard.scm
@@ -0,0 +1,32 @@
+(id dsssl)
+(description "Document Style Semantics and Specification Language (ISO/IEC 10179:1996)")
+
+(id ieee-scheme)
+(description "IEEE Standard for the Scheme Programming Language (1178-1990)")
+
+(id r0rs)
+(description "Scheme: An Interpreter for Extended Lambda Calculus (AI Memo No. 349)")
+
+(id r1rs)
+(description "The Revised Report on Scheme (AI Memo No. 452)")
+
+(id r2rs)
+(description "The Revised Revised Report on Scheme (AI Memo No. 848)")
+
+(id r3rs)
+(description "Revised^3 Report on the Algorithmic Language Scheme")
+
+(id r4rs)
+(description "Revised^4 Report on the Algorithmic Language Scheme")
+
+(id r5rs)
+(description "Revised^5 Report on the Algorithmic Language Scheme")
+
+(id r6rs)
+(description "Revised^6 Report on the Algorithmic Language Scheme")
+
+(id r7rs)
+(description "Revised^7 Report on the Algorithmic Language Scheme (small language)")
+
+(id r7rs-large)
+(description "Revised^7 Report on the Algorithmic Language Scheme (large language)")