On Monday 05 of November 2012 15:29:42 dexen wrote:
> (...) here goes the venerable cat:


..and a bugfix -- support the all-important "-" ;-)


#!/usr/bin/env plmod

(mapcar '(
        (file)

        (in (if  (= file "-")
                NIL
                file )

                (use X
                        (until (== NIL
                                        (setq X (rd 1)) )
                                (wr X) ) ) ) )

        (argv))

(bye)




cheers,
-- 
dexen deVries

[[[↓][→]]]


How often I found where I should be going
only by setting out for somewhere else.
                -- R. Buckminster Fuller
--
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe

Reply via email to