Commenting out the hahn docs
This commit is contained in:
parent
fb1158e90b
commit
c5370d839e
1 changed files with 9 additions and 8 deletions
17
edn-impl.scm
17
edn-impl.scm
|
@ -153,11 +153,12 @@
|
||||||
(and (char? x)
|
(and (char? x)
|
||||||
(fun x))))
|
(fun x))))
|
||||||
|
|
||||||
@(heading "Reading EDN")
|
;;@(heading "Reading EDN")
|
||||||
|
|
||||||
(define tag-handlers @("An a-list containing the handlers for reader tags. You can register your own reader tags by simply adding a new a-list entry.
|
(define tag-handlers
|
||||||
|
;;@("An a-list containing the handlers for reader tags. You can register your own reader tags by simply adding a new a-list entry.
|
||||||
Example for a tag \"#keywordify\": add the entry `(cons keywordify: keywordify-procedure)`.")
|
;;
|
||||||
|
;;Example for a tag \"#keywordify\": add the entry `(cons keywordify: keywordify-procedure)`.")
|
||||||
(list (cons _: (lambda (input) edn/omit:))))
|
(list (cons _: (lambda (input) edn/omit:))))
|
||||||
|
|
||||||
(define reader-handlers
|
(define reader-handlers
|
||||||
|
@ -203,7 +204,7 @@ Example for a tag \"#keywordify\": add the entry `(cons keywordify: keywordify-p
|
||||||
(cdr result)))))
|
(cdr result)))))
|
||||||
|
|
||||||
(define (read-edn port)
|
(define (read-edn port)
|
||||||
@("Reads EDN data from given port, converts it to Chicken data and returns it. Precision suffixes for numbers get ignored, maps get converted to SRFI-69 hashtables, vectors to SRFI-4 vectors.")
|
;; @("Reads EDN data from given port, converts it to Chicken data and returns it. Precision suffixes for numbers get ignored, maps get converted to SRFI-69 hashtables, vectors to SRFI-4 vectors.")
|
||||||
(second ((parse-edn '()) port)))
|
(second ((parse-edn '()) port)))
|
||||||
|
|
||||||
;; EDN writing
|
;; EDN writing
|
||||||
|
@ -308,9 +309,9 @@ Example for a tag \"#keywordify\": add the entry `(cons keywordify: keywordify-p
|
||||||
writer-handlers))
|
writer-handlers))
|
||||||
parse-entry in))
|
parse-entry in))
|
||||||
|
|
||||||
@(heading "Writing EDN")
|
;;@(heading "Writing EDN")
|
||||||
|
|
||||||
(define (write-edn port struct)
|
(define (write-edn port struct)
|
||||||
@("Converts Chicken data structures to EDN and writes it to the given port."
|
;; @("Converts Chicken data structures to EDN and writes it to the given port."
|
||||||
(struct "A Chicken data structure consisting of atoms, lists, vectors and hashtables."))
|
;; (struct "A Chicken data structure consisting of atoms, lists, vectors and hashtables."))
|
||||||
(display (parse-entry struct) port))
|
(display (parse-entry struct) port))
|
||||||
|
|
Loading…
Reference in a new issue