[REBOL] Re: Comparing path!
From: gscottjones:mchsi at: 30-Aug-2002 12:13
Hi, Robert,
From: "Robert M. Muench"
> Hi, I'm sure this is again one of those things where I'm just not smart
> enough... I would expect 'true instead of 'false with this code:
>
> >> test: [type contact/company]
> == [type contact/company]
> >> text: "contact_company"
> == "contact_company"
> >> (select test 'type) = (to-path replace text "_" "/")
> == false
>
> Any idea? I tried this with to-lit-path as well but no luck too... Robert
Looks like Gregg already answered the "real" question. Since I already
hacked my work-around, I thought I would throw in my version (I couldn't get
Gregg's to work; maybe I misunderstand its use; maybe I'm not reading
carefully enough again! Very common theme...).
test: [type contact/company]
text: "contact_company"
a: parse/all text "_"
forall a [a/1: to-word a/1]
a: head a
(select test 'type) = (make path! a)
--Scott Jones
