(require-extension r7rs srfi-69 srfi-64 srfi-88 srfi-1 hahn)
(import (chicken port))

(import r7rs)
(require-extension srfi-69 srfi-64 srfi-88 srfi-1)
;;(import (chicken port))

(test-equal (parse-entry '((a: . "Hi")
		      (b: . i-am:)
		      (c: . (a list)))) "{:a \"Hi\" :b :i-am :c (a list)}")

(test-equal
    (let ((port (open-output-string)))
      (write-edn port '((a: . "Hi")
			(b: . i-am:)
			(c: . (a list))))
      (get-output-string port))
  "{:a \"Hi\" :b :i-am :c (a list)}")

(define wifs with-input-from-string)

(define (wifs str proc)
  (call-with-port (open-input-string str) proc))

(module edn (parse-entry tag-handlers write-edn read-edn)

(import r7rs)
(define-library (edn)

	  scheme
	  (chicken base)
	  (chicken keyword)
	  (chicken port))
  (include "edn-impl.scm"))

	  (scheme base)
	  (scheme case-lambda)
	  (scheme char)
	  (scheme cxr)
	  (scheme write))
  (export parse-entry tag-handlers write-edn read-edn)
  (begin (include "edn-impl.scm")))

 (dependencies hahn srfi-69 srfi-1)
 (test-dependencies srfi-64)

 (dependencies r7rs srfi-69 srfi-1 hahn)
 (test-dependencies r7rs srfi-64 hahn)

			(csc-options "-X" "hahn"))))

			(csc-options "-X" "r7rs" "-R" "r7rs" "-X" "hahn")
			)))

(define (read-edn)
  @("Reads EDN data from the `current-input-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 '()) (current-input-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.")
  (second ((parse-edn '()) port)))

		 (foldr (lambda (elem init)

		 (fold-right (lambda (elem init)

		 (foldr (lambda (elem init)

		 (fold-right (lambda (elem init)

(define (write-edn struct)
  @("Converts Chicken data structures to EDN and writes it to the `current-output-port`."

(define (write-edn port struct)
  @("Converts Chicken data structures to EDN and writes it to the given port."

  (lambda ()
    (display (parse-entry struct) (current-output-port))))

    (display (parse-entry struct) port))