Rename reader-directive -> hash-bang-syntax

This commit is contained in:
Lassi Kortela 2020-08-06 22:31:53 +03:00
parent ff193eb4f0
commit 13ed02a959
2 changed files with 7 additions and 18 deletions

View File

@ -165,17 +165,15 @@
(append (group-file 'id "library-name.scm") (append (group-file 'id "library-name.scm")
(splice-implementations))))))) (splice-implementations)))))))
(define (reader-directive) (define (hash-bang-syntax)
(registry (registry
"Reader directives" "#! lexical syntax"
"reader-directive" "hash-bang-syntax"
'(p) '(p)
(tabulate (tabulate
'("ID" "Description" "Prefixes") '("ID" "Description")
(map (lambda (entry) (map the-usual
(append (the-usual entry) (sort-by-id (group-file 'id "hash-bang-syntax.scm"))))))
(list `(code ,(assoc1 'prefixes entry)))))
(sort-by-id (group-file 'id "reader-directive.scm"))))))
(define (foreign-status-set) (define (foreign-status-set)
(registry (registry
@ -224,7 +222,7 @@
,(machine) ,(machine)
,(feature) ,(feature)
,(library-name) ,(library-name)
,(reader-directive) ,(hash-bang-syntax)
,(foreign-status-set) ,(foreign-status-set)
,(foreign-status-property))))) ,(foreign-status-property)))))

View File

@ -1,35 +1,26 @@
(id bwp) (id bwp)
(description "broken-weak-pair object") (description "broken-weak-pair object")
(prefixes "#!")
(id eof) (id eof)
(description "end-of-file object") (description "end-of-file object")
(prefixes "#!")
(id fold-case) (id fold-case)
(description "change to case insensitive identifiers") (description "change to case insensitive identifiers")
(prefixes "#!")
(id key) (id key)
(description "start keyword arguments in lambda list") (description "start keyword arguments in lambda list")
(prefixes "#!")
(id no-fold-case) (id no-fold-case)
(description "change to case sensitive identifiers") (description "change to case sensitive identifiers")
(prefixes "#!")
(id optional) (id optional)
(description "start optional arguments in lambda list") (description "start optional arguments in lambda list")
(prefixes "#!")
(id r6rs) (id r6rs)
(description "change to R6RS read syntax") (description "change to R6RS read syntax")
(prefixes "#!")
(id r7rs) (id r7rs)
(description "change to R7RS read syntax") (description "change to R7RS read syntax")
(prefixes "#!")
(id rest) (id rest)
(description "start rest argument in lambda list") (description "start rest argument in lambda list")
(prefixes "#!")