Error: bad argument count - received 2 but expected 1: #<procedure (abnf#CharLex->CoreABNF L700)>

	Call history:

	<syntax>	  (define char-list-<Input> (make-<Input> null? car cdr))
	<syntax>	  (##core#set! char-list-<Input> (make-<Input> null? car cdr))
	<syntax>	  (make-<Input> null? car cdr)
	<eval>	  (make-<Input> null? car cdr)
	<syntax>	  (define char-list-<Token> (Input->Token char-list-<Input>))
	<syntax>	  (##core#set! char-list-<Token> (Input->Token char-list-<Input>))
	<syntax>	  (Input->Token char-list-<Input>)
	<eval>	  (Input->Token char-list-<Input>)
	<syntax>	  (define char-list-<CharLex> (Token->CharLex char-list-<Token>))
	<syntax>	  (##core#set! char-list-<CharLex> (Token->CharLex char-list-<Token>))
	<syntax>	  (Token->CharLex char-list-<Token>)
	<eval>	  (Token->CharLex char-list-<Token>)
	<syntax>	  (define char-list-<CoreABNF> (CharLex->CoreABNF char-list-<Token> char-list-<CharLex>))
	<syntax>	  (##core#set! char-list-<CoreABNF> (CharLex->CoreABNF char-list-<Token> char-list-<CharLex>))
	<syntax>	  (CharLex->CoreABNF char-list-<Token> char-list-<CharLex>)
	<eval>	  (CharLex->CoreABNF char-list-<Token> char-list-<CharLex>)	<--