Error: during expansion of (define ...) - in `define' - too many arguments: (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.\n\nExample for a tag \"#keywordify\": add the entry `(cons keywordify: keywordify-procedure)`.") (list (cons #:_ (lambda (input) #:edn/omit))))

        Call history:

        <syntax>          (define (guard-charcheck fun) (lambda (x) (and (char? x) (fun x))))
        <syntax>          (##core#begin (##core#ensure-toplevel-definition guard-charcheck) (##core#set! guard-charcheck (##co...
        <syntax>          (##core#ensure-toplevel-definition guard-charcheck)
        <syntax>          (##core#undefined)
        <syntax>          (##core#set! guard-charcheck (##core#lambda (fun) (lambda (x) (and (char? x) (fun x)))))
        <syntax>          (##core#lambda (fun) (lambda (x) (and (char? x) (fun x))))
        <syntax>          [guard-charcheck] (##core#begin (##core#lambda (x) (and (char? x) (fun x))))
        <syntax>          [guard-charcheck] (##core#lambda (x) (and (char? x) (fun x)))
        <syntax>          [guard-charcheck] (##core#begin (##core#if (char? x) (and365 (fun x)) #f))
        <syntax>          [guard-charcheck] (##core#if (char? x) (and365 (fun x)) #f)
        <syntax>          [guard-charcheck] (char? x)
        <syntax>          [guard-charcheck] (and365 (fun x))
        <syntax>          [guard-charcheck] (fun x)
        <syntax>          (##core#begin (heading "Reading EDN") (define tag-handlers @ ("An a-list containing the handlers for...
        <syntax>          (heading "Reading EDN")
        <syntax>          (define tag-handlers @ ("An a-list containing the handlers for reader tags. You can register your ow...       <--