scheme@(guile-user) [8]> (let ((l '(asd-record (license-line (text-until-dq MIT)) (synopsis-line (text-until-dq An async HTTP client)) dependencies (dependencies (text alexandria)) (dependencies (text babel)) (dependencies (text fast-io)) (dependencies (text cl-async)) (dependencies (text blackbird)) (dependencies (text quri)) (dependencies (text fast-http)) (dependencies (text fast-io)) (dependencies (text cl-async-ssl)) (dependencies (text cl-cookie)) (dependencies (text file)))))
		       (match l           ;; <- the input object
         (('asd-record (who (_ val)) ...)  ;; <- the pattern
          who)))          ;; <- the expression evaluated upon matching
<unnamed port>:170:23: Throw to key `match-error' with args `("match" "no matching pattern" (asd-record (license-line (text-until-dq MIT)) (synopsis-line (text-until-dq An async HTTP client)) dependencies (dependencies (text alexandria)) (dependencies (text babel)) (dependencies (text fast-io)) (dependencies (text cl-async)) (dependencies (text blackbird)) (dependencies (text quri)) (dependencies (text fast-http)) (dependencies (text fast-io)) (dependencies (text cl-async-ssl)) (dependencies (text cl-cookie)) (dependencies (text file))))'.

Entering a new prompt.  Type `,bt' for a backtrace or `,q' to continue.
scheme@(guile-user) [9]> (let ((l '(asd-record (license-line (text-until-dq MIT)))))
		       (match l           ;; <- the input object
         (('asd-record (who (_ val)) ...)  ;; <- the pattern
          who)))          ;; <- the expression evaluated upon matching
$5 = (license-line)