[REBOL] Re: Defect in Rebol/Core 2.5.6
From: AJMartin::orcon::net::nz at: 7-Aug-2003 19:46
Brett wrote:
> or perhaps Values.r is doing something strange?
It does work OK on Rebol/View? :-/
>> rebol/version
== 1.2.8.3.1
>> source source
source: func [
"Prints the script source code for a word."
'Word [word!]
][
print Script Word
]
Which shows my substitution for 'source.
I tried substituting Values.r with this:
Folder: %/C/Rebol/Values/
Files: [
%Patches.r
%Accumulate.r
%HTML Obfuscate.r
%Address.r
%Age.r
%Arguments.r
%Associate.r
%Average.r
%Build Tag.r
%Celcius.r
%Clone.r
%CLS.r
%Collect.r
%Map.r
%Common Parse Values.r
%CSS.r
%CSV.r
%Decode.r
%Delete Directory.r
%Dice.r
%Dir.r
%Recursive Read.r
%Duplicate Directory.r
%Envelope.r
%eText.r
%Fahrenheit.r
%File.r
%Fixed.r
%Fold.r
%Found.r
%Fun.r
%Greek.r
%Hunt.r
%Ice.r
%Interleave.r
%Interweave.r
%Iota.r
%Itemize.r
%Leapyear.r
%Push.r
%Pop.r
%Load-XML.r
%Load-XMLSS.r
%Log.r
%Make Object.r
%MIME.r
%ML.r
%Month.r
%Not.r
%Pack.r
%Peers.r
%Transpose.r
%Permute.r
%Printer.r
%R2HTML.r
%Random Numbers.r
%Rank.r
%RNV.r
%Roman.r
%Round.r
%Script.r
%Source.r
%Table Data.r
%Table Columns.r
%Table Rows.r
%Table.r
%Tables.r
%Tally.r
%Time.r
%URI.r
%Weekday.r
]
foreach File Files [
do Folder/:File
]
but I got the same result:
>> source source
none
== source
:(
So I tried it with:
Folder: %/C/Rebol/Values/
Files: [
%Script.r
%Source.r
]
foreach File Files [
do Folder/:File
]
but I got the same result:
>> source source
none
== source
:( :(
So I tried it with:
do %/C/Rebol/Values/Script.r
do %/C/Rebol/Values/Source.r
but I got the same result:
>> source source
none
== source
If I put "source source" inside my %User.r I get:
REBOL/Core 2.5.6.3.1
Copyright 1997-2003 REBOL Technologies
REBOL is a Trademark of REBOL Technologies
All rights reserved.
Component: "REBOL Mezzanine Extensions" 1.1.2.1 (29-Nov-2002/19:29:09)
Component: "REBOL Internet Protocols" 1.59.2.15 (14-Feb-2003/1:45:14)
Finger protocol loaded
Whois protocol loaded
Daytime protocol loaded
SMTP protocol loaded
POP protocol loaded
IMAP protocol loaded
HTTP protocol loaded
FTP protocol loaded
NNTP protocol loaded
Component: "System Port" 1.1.2.5 (30-Nov-2002/17:24:03)
Script: "User" (16-Jul-2003)
Script: "Script" (18-Jul-2003)
Script: "Source" (19-Jul-2003)
source: func [
"Prints the script source code for a word."
'Word [word!]
][
print Script Word
]
>> ; I'm trying this at the console now!
>> source source
none
== source
>>
I can see that "source source" is done inside %User.r. But the console
session still gives the strange result. :(
If I execute the scripts from the console like this:
Script: "User" (16-Jul-2003)
>> do %/C/Rebol/Values/Script.r
Script: "Script" (18-Jul-2003)
>> do %/C/Rebol/Values/Source.r
Script: "Source" (19-Jul-2003)
>> source source
source: func [
"Prints the script source code for a word."
'Word [word!]
][
print Script Word
]
Rebol/Core 2.5.6 seems to behave normally.
The problem seems to be in the processing of %User.r, in that functions (and
perhaps other values?) created in the %User.r don't seem to be available
outside %User.r's context?
I hope this helps find the problem.
Andrew J Martin
ICQ: 26227169
http://www.rebol.it/Valley/
http://valley.orcon.net.nz/
http://Valley.150m.com/