Changeset 17863 in project


Ignore:
Timestamp:
04/19/10 19:48:50 (11 years ago)
Author:
Jim Ursetto
Message:

sxml-transforms: add *preorder/ss* to pre-post-order*

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/sxml-transforms/chicken/apply-limit-fixes.scm

    r16875 r17863  
    2121                 (binding (or (assq trigger bindings) default-binding)))
    2222            (cond
    23               ((not binding) 
     23              ((not binding)
    2424                (error "Unknown binding for " trigger " and no default"))
    2525              ((not (pair? (cdr binding)))  ; must be a procedure: handler
     
    2727              ((eq? '*preorder* (cadr binding))
    2828                ((cddr binding) (car tree) (cdr tree)))
     29              ((eq? '*preorder/ss* (cadr binding))
     30                ((cddr binding) (car tree) (cdr tree) bindings))
    2931              ((eq? '*macro* (cadr binding))
    3032                (loop ((cddr binding) (car tree) (cdr tree))))
    3133              (else                         ; (cadr binding) is a local binding
    32                 ((cddr binding) trigger 
     34                ((cddr binding) trigger
    3335                 (pre-post-order* (cdr tree) (append (cadr binding) bindings)))
    3436                ))))))))
Note: See TracChangeset for help on using the changeset viewer.