Hi Konrad,

>   (let (Line NIL End (chop Mark) Body (cons 'prog B))
>   ...
>        (eval Body)))

> but have a feeling it could be expressed more gracefully in Picolisp.

Yes. There is a direct way using 'run' which makes the additional (cons
'prog ..) unnecessary:

   (de process-until (Mark . B)
      (let (Line NIL  End (chop Mark))
         (until (or (eof) (= Line End))
            (setq Line (line))
            (run B) ) ) )

Cheers,
- Alex
-- 
UNSUBSCRIBE: mailto:[EMAIL PROTECTED]

Reply via email to