DAVID GAMEY wrote:
>
> Works a charm. With a little wrapping, the asymmetry
> is fixed ...
>
> procedure list(x[])
> local L
> static LIST
> initial LIST := proc("list",0)
>
> if type(x[1]) ~== "set" then return LIST!x
> else {
> every put(L := [], !x[1])
> return L
> }
> end
Nice!
How about changing the test to (something like):
if (*x = 0) | numeric(x[1]) then return LIST!x
else {...
that way, you could pass in records, strings (cute,
converts a string to a list of characters!), etc.
and not just sets.
--
Steve Wampler -- [EMAIL PROTECTED]
The gods that smiled on your birth are now laughing out loud.
-------------------------------------------------------
SF.Net email is sponsored by: Discover Easy Linux Migration Strategies
from IBM. Find simple to follow Roadmaps, straightforward articles,
informative Webcasts and more! Get everything you need to get up to
speed, fast. http://ads.osdn.com/?ad_id=7477&alloc_id=16492&op=click
_______________________________________________
Unicon-group mailing list
Unicon-group@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/unicon-group
