Hi José,
> Because the world wasn't weird enough already I took the liberty to
Bravo! That's a valid idea ;)
Let me suggest two small changes:
> (de prog+ "Prg"
> (use ("Thunk" "Ret" "L")
> (setq "Thunk" "Prg" "Ret" NIL)
> (while
Did you have any special reason for 'use'? Otherwise I would use 'let':
(de prog+ "Prg"
(let ("Thunk" "Prg" "Ret" NIL "L" NIL)
(while
The call to 'seek'
> (seek '[(X) (= (car X) "L")] "Prg")
can in this case be replaced by member:
(member "L" "Prg")
Cheers,
- Alex
--
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
