Sorry,
In my code, there is (car l) but of course it should be (car selectors).
(let ((loop (gensym)))
`(let ,loop ((selectors (,seek2 (quote ,@body)) )) ;;list of selectors
(cond ((null? selectors) (,@body))
(else
(define (car selectors)
(defines3 (string->list
(substring (car selectors) 2
(- (string-length (car selectors))1)) )))
--
You received this message because you are subscribed to the Google Groups
"Racket Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to racket-users+unsubscr...@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.
