Hello [EMAIL PROTECTED]!
On 25-Gen-00, you wrote:
l> _subtract: :subtract
l> subtract: func [
l> {Returns the second value subtracted from the first.}
l> value1 [any-type!]
l> value2 [any-type!]
l> ] [
l> either all [complex? value1 complex? value2] [
l> make complex! [
l> re: value1/re - value2/re
l> im: value1/im - value2/im
l> ]
l> ] [
l> _subtract value1 value2
l> ]
l> ]
If the GC wasn't buggy, I'd suggest:
use [orig-subtract] [
orig-subtract: :subtract
subtract: func [
...
]
]
This way you don't pollute the global context and, more
importantly, can extend this function many times.
Regards,
Gabriele.
--
o--------------------) .-^-. (----------------------------------o
| Gabriele Santilli / /_/_\_\ \ Amiga Group Italia --- L'Aquila |
| GIESSE on IRC \ \-\_/-/ / http://www.amyresource.it/AGI/ |
o--------------------) `-v-' (----------------------------------o
