(define (try-ip-literal->string s)
  (let loop ((lst (list))  (rst s))
    (match rst ((#\] . rst)  (uri-char-list->string (reverse lst)))
       (()  (uri-char-list->string (reverse lst)))
       (else (loop (cons (car rst) lst) (cdr rst))))))


ponk% ./test-chicken.scm

Error: malformed expression: (#\] . rst)
inside expression `(match ...)'

	Call history:

	<syntax>	  (define (try-ip-literal->string s) (let loop ((lst (list)) (rst s)) (match rst ((#\] . rst) (uri-cha......
	<syntax>	  (##core#set! try-ip-literal->string (##core#lambda (s) (let loop ((lst (list)) (rst s)) (match rst (...
	<syntax>	  (##core#lambda (s) (let loop ((lst (list)) (rst s)) (match rst ((#\] . rst) (uri-char-list->string (......
	<syntax>	  [try-ip-literal->string] (##core#begin (##core#app (##core#letrec* ((loop (##core#loop-lambda (lst rst) (match rst ((#\] . rst...
	<syntax>	  [try-ip-literal->string] (##core#app (##core#letrec* ((loop (##core#loop-lambda (lst rst) (match rst ((#\] . rst) (uri-char-l......
	<syntax>	  [try-ip-literal->string] (##core#letrec* ((loop (##core#loop-lambda (lst rst) (match rst ((#\] . rst) (uri-char-list->string ...
	<syntax>	  [try-ip-literal->string] (##core#let ((loop (##core#undefined))) (##core#set! loop (##core#loop-lambda (lst rst) (match rst (...
	<syntax>	  [try-ip-literal->string] (##core#begin (##core#set! loop (##core#loop-lambda (lst rst) (match rst ((#\] . rst) (uri-char-list......
	<syntax>	  [try-ip-literal->string] (##core#set! loop (##core#loop-lambda (lst rst) (match rst ((#\] . rst) (uri-char-list->string (reve......
	<syntax>	  [try-ip-literal->string] (##core#loop-lambda (lst rst) (match rst ((#\] . rst) (uri-char-list->string (reverse lst))) (() (ur......
	<syntax>	  [try-ip-literal->string] (lambda (lst rst) (match rst ((#\] . rst) (uri-char-list->string (reverse lst))) (() (uri-char-list-......
	<syntax>	  [try-ip-literal->string] (##core#lambda (lst rst) (match rst ((#\] . rst) (uri-char-list->string (reverse lst))) (() (uri-cha......
	<syntax>	  [try-ip-literal->string] (##core#begin (match rst ((#\] . rst) (uri-char-list->string (reverse lst))) (() (uri-char-list->str......
	<syntax>	  [try-ip-literal->string] (match rst ((#\] . rst) (uri-char-list->string (reverse lst))) (() (uri-char-list->string (reverse lst...
	<syntax>	  [try-ip-literal->string] ((#\] . rst) (uri-char-list->string (reverse lst)))
	<syntax>	  [try-ip-literal->string] (#\] . rst)	<--