Add Scheme standards

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)

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)")