Here's the entire contents of my %Patches.r script:
; Wraps throw-on-error around 'function body.
if not equal? second third :function [catch] [
Function: func
head insert/only at load mold third :function 2 [catch]
compose/deep [
throw-on-error [
(copy/deep second :function)
]
]
]
; Fixes 'append so it works correctly with 'path! and doesn't evaluate
'Value.
if found? find mold second :append "insert tail series" [
Append: func [
{Appends a value to the tail of a series and returns the series
head.}
Series [series! port! path! word!]
Value [any-type!]
/Only "Appends a block value as a block."
][
head either Only [
insert/only tail :Series :Value
][
insert tail :Series :Value
]
]
]
; Fixes 'repend so it works correctly with 'path!.
if any [
unset? get/any 'repend ; Early Rebel/Core versions don't have
reppend.
found? find mold second :repend "insert tail series"
][
Repend: func [
{Appends a reduced value to a series and returns the series head.}
Series [series! port! path! word!]
Value [any-type!]
/Only "Appends a block value as a block."
][
head either Only [
insert/only tail :Series reduce :Value
][
insert tail :Series reduce :Value
]
]
]
; A better choice for http user-agent.
if not found? find system/schemes/http/user-agent "Mozilla" [
system/schemes/http/user-agent: rejoin [
"Mozilla" "/" "4.0"
" (Compatible; REBOL " rebol/version ")"
]
]
; Holger's patch to ftp protocol to eliminate multi-line return bug.
change/only skip find pick find second get in system/schemes/ftp/handler
'open
to-set-word 'parse-dir-list 4 'transfer-check -2
'net-utils/confirm/multiline
; Replaces 'days with 'weekdays, to match /weekdays refinement for date!
values.
rebol/Locale: make object! [
Months: rebol/locale/months
Weekdays: rebol/locale/days
]
; Modifies Extract to work with series! and adds /Only refinement.
Extract: function [
"Extracts every N-th value from a Series."
Series [series!]
N [integer!]
/Only "Appends a block value as a block."
][
New
][
New: make Series (length? Series) / N
do compose/deep [
forskip Series N [
(either Only ['insert/only]['insert]) tail New first Series
]
]
New
]
; Adds 'Alter function to Rebol/Core, which is present in Rebol/View.
if not value? 'alter [
Alter: function [
{If a value is not in the list, append it. Otherwise, remove it.}
List
Value
] [
Temp
] [
either Temp: find List Value [
remove Temp
][
append List Value
]
]
]
I expressly give permission to Rebol to use this as they see fit.
Andrew Martin
ICQ: 26227169 http://valley.150m.com/
-><-
----- Original Message -----
From: "Petr Krenzelok" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Friday, April 05, 2002 6:28 PM
Subject: [REBOL] Core 2.6 - Last minute requests - take your chance!
> Hello list,
>
> I had a nice chat with Carl on IOS Messenger, and we agreed upon
> following scenario:
>
> Core 2.6 is really near now, so we all have last chance to post bug
> reports, enhancement request, to be included in 2.6. Post it as a reply
> to this message. Those of us, being present on IOS Developer server,
> will look into it, and fill it into IOS bug database. But please, keep
> in mind following simple but clear rules, set-up by Carl.
>
> 1) ALL older DB requests should be submitted if you want them to be
> considered for 2.6.
>
> 2) Those requests that are "just a few lines" of change will be done.
>
> 3) Those requests where a user has already coded it, and we agree with
> the code, name, and API details, then we will add it.
>
> 4) And then, if there is a very serious problem
>
> 5) If it is a big change, and no code has been created, then it will not
> be in 2.6.
>
>
> So please - no multimedia stuff, no components, no modules, no
> threading, no dreamy stuff - let's save it for 3.0 :-)
>
> Thanks,
> -pekr-
>
> --
> To unsubscribe from this list, please send an email to
> [EMAIL PROTECTED] with "unsubscribe" in the
> subject, without the quotes.
>
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the
subject, without the quotes.
