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

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
Which module provides `foreign-declare'?
Visually impaired? Let me spell it for you (wav file) download WAV