this compiles pasted by C-Keen on Fri Jun 1 21:00:42 2012

(use matchable )
(define (filter->query f)
  (map (lambda (r)
         (match r
                ((y 'is       . x)     (y . x))
                ((y 'is-not   . x)     (y . (conc "!"  x)))
                ((y 'contains . x)     (y . (conc "~"  x)))
                ((y 'contains-not . x) (y . (conc "!~" x)))
                ((y 'ends     . x)     (y . (conc "$"  x)))
                ((y 'starts   . x)     (y . (conc "^"  x)))) f)))
[ permalink | raw ]

*this* compiles pasted by C-Keen on Fri Jun 1 21:02:56 2012

(use matchable )
(define (filter->query f)
  (map (lambda (r)
         (match r
                ((y 'is       . x)     (cons y x))
                ((y 'is-not   . x)     (cons y (conc "!"  x)))
                ((y 'contains . x)     (cons y (conc "~"  x)))
                ((y 'contains-not . x) (cons y (conc "!~" x)))
                ((y 'ends     . x)     (cons y (conc "$"  x)))
                ((y 'starts   . x)     (cons y (conc "^"  x)))) f)))
[ permalink | raw ]

and this works ;) added by ente on Fri Jun 1 21:09:24 2012

(define (filter->query f)
    (map (lambda (r)
        (match r
            ((y 'is      . x) (cons y x))
            ((y 'not     . x) (cons y (conc "!"  x)))
            ((y 'with    . x) (cons y (conc "~"  x)))
            ((y 'without . x) (cons y (conc "!~" x)))
            ((y 'ends    . x) (cons y (conc "$"  x)))
            ((y 'starts  . x) (cons y (conc "^"  x))))) f))
[ permalink | raw ]