Re: help with foldts*-values from (sxml fold) ?

[Matt Wette]

>> I'm trying to learn to use sxml currently having issues with foldts*-values. 
>>  I can't find specification of the function signatures.   I do have Andy 
>> Wingo's paper.   When I feed a tree to the routine consol-runs-3 below I get 
>> error regarding number of args to fh. call signature for fh?   Any clue what 
>> I've got wrong?  -- Matt
>> 
>> (define (consol-runs-3 s0)
>> (letrec (;; fd: node seed ...
>>         (fd (lambda (node seed vars)
>>               (values node vars)))
>>         ;; fu: node seed ...
>>         (fu (lambda (node seed vars kseed kvars)
>>               (values seed vars)))
>>         ;; fh: atom seed ...
>>         (fh (lambda (atom seed vars)
>>               (values atom vars)))
>>         )
>>   (foldts*-values fd fu fh s0 '() '())))

Here is a copy transformation:

(define (consol-runs-3 s0)
  (letrec (
           (fd (lambda (node seed vars)
                 (values node (list (car node)) vars)))
           (fu (lambda (node seed vars kseed kvars)
                 (values
                  (if (null? seed)
                      (cdr (reverse kseed))
                      (cons (cdr (reverse kseed)) seed))
                  vars)))
           (fh (lambda (atom seed vars)
                 (values (cons atom seed) vars)))
           )
    (foldts*-values fd fu fh s0 '() '())))