Welcome to the CHICKEN Scheme pasting service
Matchable Misery added by andyjpb on Mon Mar 11 19:14:14 2013
(match `(,parent-path ,(reverse lk-seed)) ;((('@ 'a ...) ('href ...)) ((x y) (fprintf (current-error-port) " Got: ~A ~A\n" parent-path lk-seed) (fprintf (current-error-port) " x: ~A\n" x) (fprintf (current-error-port) " y: ~A\n" y) lk-seed) (else lk-seed)) -> Now: <(@ a li)> <(s file / href)> : <((@ a li) (href / file s))> Got: (@ a li) (s file / href) x: (@ a li) y: (href / file s) (match `(,parent-path ,(reverse lk-seed)) ;((('@ 'a ...) ('href ...)) ((('@ 'a x) y) (fprintf (current-error-port) " Got: ~A ~A\n" parent-path lk-seed) (fprintf (current-error-port) " x: ~A\n" x) (fprintf (current-error-port) " y: ~A\n" y) lk-seed) (else lk-seed)) -> Now: <(@ a li)> <(5:1649 / s hub / href)> : <((@ a li) (href / hub s / 5:1649))> Got: (@ a li) (5:1649 / s hub / href) x: li y: (href / hub s / 5:1649) (match `(,parent-path ,(reverse lk-seed)) ;((('@ 'a ...) ('href ...)) ((('@ 'a x) (y)) (fprintf (current-error-port) " Got: ~A ~A\n" parent-path lk-seed) (fprintf (current-error-port) " x: ~A\n" x) (fprintf (current-error-port) " y: ~A\n" y) lk-seed) (else lk-seed)) -> no matches (match `(,parent-path ,(reverse lk-seed)) ;((('@ 'a ...) ('href ...)) ((('@ 'a x) (y) ...) (fprintf (current-error-port) " Got: ~A ~A\n" parent-path lk-seed) (fprintf (current-error-port) " x: ~A\n" x) (fprintf (current-error-port) " y: ~A\n" y) lk-seed) (else lk-seed)) -> no matches