Welcome to the CHICKEN Scheme pasting service

(module
 test-module
 (my-export)
 
 (import scheme chicken)

 (begin-for-syntax
  (set-read-syntax! #\{
     (lambda (port)
       (let loop ((c (peek-char port)) (exps '()))
         (cond ((eof-object? c)
                (error "EOF encountered while parsing { ... } clause"))
               ((char=? c #\})
                (read-char port) ; discard
                (let ((exps (reverse exps)))
                  `'(,(symbol->string (car exps)) ,@(cdr exps))))
               ((char-whitespace? c)
                (read-char port) ; discard
                (loop (peek-char port) exps))
               (else
                (let ((exp (read port)))
                  (loop (peek-char port)
                        (cons exp exps)))))))))

 (define (my-export)
   {hello "world"}))

(import test-module)

(print (my-export))