[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [Axiom-developer] Re: [Axiom-commit] SF.net SVN: axiom: [345] branch
From: |
Waldek Hebisch |
Subject: |
Re: [Axiom-developer] Re: [Axiom-commit] SF.net SVN: axiom: [345] branches/wh-sandbox |
Date: |
Fri, 1 Dec 2006 01:25:29 +0100 (CET) |
> address@hidden writes:
>
> [...]
>
> | getBrowseDatabase(kind) ==
> | $includeUnexposed? : local := true
> | - not MEMBER(kind,'("o" "k" "c" "d" "p")) => nil
> | - grepConstruct('"*",INTERN kind)
> | + k1 := INTERN kind
> | + not member(k1,["o", "k", "c", "d", "p"]) => nil
> | + grepConstruct('"*", k1)
>
> I don't understand the fine point of this modification:
>
> using more indirections and a list of symbols with different meaning.
> Could you expand on what the root problems was?
>
Boot rewrites 'MEMBER' to 'member'. Shoe is rewrites 'member' to
'MEMBER'. I wrote in other message how to call 'member' in shoe, but
that is a devious construct.
'member' user 'EQUAL' on strings. 'MEMBER' uses 'EQ', which does not
give expected effect for strings.
--
Waldek Hebisch
address@hidden