readline error added by DeeEff on Wed Oct 18 23:31:23 2017

#;1> (with
Error: (zero?) bad argument type: "with"

        Call history:

        <syntax>          (rl-make-readline-port)
        <eval>    (get-environment-variable "INSIDE_EMACS")
        <eval>    (##sys#require (quote readline))
        <eval>    (##sys#require (quote readline-scheme-completion))
        type-checks.scm:54: ##sys#require
        <eval>    (rl-history-file (format "~a/.csi_history" (get-environment-variable "HOME")))
        <eval>    (format "~a/.csi_history" (get-environment-variable "HOME"))
        <eval>    (get-environment-variable "HOME")
        <eval>    (rl-stifle-history! 10000)
        <eval>    (rl-completer-word-break-characters-set! "\"'`;|(")
        <eval>    (rl-completer-set! rl-scheme-completer)
        <eval>    (rl-basic-quote-characters-set! "\"|")
        <eval>    (rl-variable-bind! "blink-matching-paren" "on")
        <eval>    (rl-paren-blink-timeout-set! 200000)
        <eval>    (current-input-port (rl-make-readline-port))
        <eval>    (rl-make-readline-port)       <--
#;1>