Hi,

I'm writing a method wich only wants to conditionally process some of
its arguments and am wondering if there is a better way to write it.
Note In this case I don't need somthing which returns new functions as
each invocation will only be used once.


currently I have

(de process-until (Mark . B)
  (let (Line NIL End (chop Mark) Body (cons 'prog B))
     (until (or (eof) (= Line End))
       (setq Line (line))
       (eval Body)))

and intended to be called as follows

(in 'stream
  (process-until "End First Section" (Fun1 Line) (Fun2 Line))
  (process-until "End Second Section" (DIferentFun Line)))


What I have at the moment works (I'm not at my regular computer so I
hope I retyped it correctly)
but have a feeling it could be expressed more gracefully in Picolisp.

regard

Konrad.
-- 
UNSUBSCRIBE: mailto:[EMAIL PROTECTED]

Reply via email to