;;;; run.scm


(use syn-param)


(assert 
 (equal?
  '(5 1 3)
  (with-extended-parameter-operators
   ((foo* (list (x . 0) (y . 0) (z . 0))))
   (foo* 5 (=> z 3) (=> y 1)))))