diff --git a/generate.scm b/generate.scm index 1ddf0fb..f979a56 100644 --- a/generate.scm +++ b/generate.scm @@ -165,17 +165,15 @@ (append (group-file 'id "library-name.scm") (splice-implementations))))))) -(define (reader-directive) +(define (hash-bang-syntax) (registry - "Reader directives" - "reader-directive" + "#! lexical syntax" + "hash-bang-syntax" '(p) (tabulate - '("ID" "Description" "Prefixes") - (map (lambda (entry) - (append (the-usual entry) - (list `(code ,(assoc1 'prefixes entry))))) - (sort-by-id (group-file 'id "reader-directive.scm")))))) + '("ID" "Description") + (map the-usual + (sort-by-id (group-file 'id "hash-bang-syntax.scm")))))) (define (foreign-status-set) (registry @@ -224,7 +222,7 @@ ,(machine) ,(feature) ,(library-name) - ,(reader-directive) + ,(hash-bang-syntax) ,(foreign-status-set) ,(foreign-status-property))))) diff --git a/reader-directive.scm b/hash-bang-syntax.scm similarity index 79% rename from reader-directive.scm rename to hash-bang-syntax.scm index 41fa8a6..915338a 100644 --- a/reader-directive.scm +++ b/hash-bang-syntax.scm @@ -1,35 +1,26 @@ (id bwp) (description "broken-weak-pair object") -(prefixes "#!") (id eof) (description "end-of-file object") -(prefixes "#!") (id fold-case) (description "change to case insensitive identifiers") -(prefixes "#!") (id key) (description "start keyword arguments in lambda list") -(prefixes "#!") (id no-fold-case) (description "change to case sensitive identifiers") -(prefixes "#!") (id optional) (description "start optional arguments in lambda list") -(prefixes "#!") (id r6rs) (description "change to R6RS read syntax") -(prefixes "#!") (id r7rs) (description "change to R7RS read syntax") -(prefixes "#!") (id rest) (description "start rest argument in lambda list") -(prefixes "#!")