[REBOL] Weird Re:

2000-01-27 Thread sqlab

Hi

I wanted to get the number of actual arguments in a function last week,
but restrained from doing it in a similar way. 
Means it crashed immediately.(

AR

 Hi,
 
 did anybody try the following:
 
 f: func [x] [get first first :f]
 f 1
 
 WARNING, any damages at your own risk!
 
 Ladislav
 

-- 
Sent through Global Message Exchange - http://www.gmx.net



[REBOL] Weird Re:(2)

2000-01-27 Thread icimjs

Hi AR,
you wrote:
I wanted to get the number of actual arguments in a function last week,
but restrained from doing it in a similar way. 
Means it crashed immediately.(


 f: func [x y z] [ 
  args: third :f 
  print length? args
  print mold args
  bind args 'x 
  foreach word args [print get word] 
]
 f "Try doing" "it like" "this. Works!"
3
[x y z]
Try doing
it like
this. Works!



;- Elan  [: - )]



[REBOL] Weird Re:(3)

2000-01-27 Thread sqlab

Thanks

AR
 
  f: func [x y z] [ 
   args: third :f 
   print length? args
   print mold args
   bind args 'x 
   foreach word args [print get word] 
 ]
  f "Try doing" "it like" "this. Works!"
 
 ;- Elan  [: - )]
 

-- 
Sent through Global Message Exchange - http://www.gmx.net



[REBOL] Weird Re:

2000-01-26 Thread runester

I tried it, and REBOL instantly crashed. What we old timers used to call
"General Protection Faults" but seem to be referred to now as "error in page
number ..."

Actually, that could be a useful function! Hey, I may need REBOL to suddenly
produce a page fault and crash, and now I have a handy function that does just
that ... cool.

You wouldn't have anything that can blow a monitor, do you?
8^)


--- [EMAIL PROTECTED] wrote:
 Hi,
 
 did anybody try the following:
 
 f: func [x] [get first first :f]
 f 1
 
 WARNING, any damages at your own risk!
 
 Ladislav
 
 

=
Steve ~runester~ Jarjoura
"According to my calculations, that problem doesn't exist."
__
Do You Yahoo!?
Talk to your friends online with Yahoo! Messenger.
http://im.yahoo.com



[REBOL] Weird Re:

2000-01-26 Thread Al . Bri

Ladislav wrote:
 did anybody try the following:

 f: func [x] [get first first :f]
 f 1

 WARNING, any damages at your own risk!

I tried it and got the damages! :-) I got this:
Quote
REBOL caused an invalid page fault in
module REBOL.EXE at 015f:0040ab5c.
Registers:
EAX=02cb CS=015f EIP=0040ab5c EFLGS=00010256
EBX=0068c534 SS=0167 ESP=0065fba4 EBP=0065fbe0
ECX=0005 DS=0167 ESI= FS=20e7
EDX= ES=0167 EDI=0071ac08 GS=
Bytes at CS:EIP:
8b 40 0c 03 70 08 8b 43 0c 8b 40 08 80 78 10 19
Stack dump:
006720e4 0071f89c 0068c534 00403d27 0068c534 0065fc50 0065fc50 00686b88
00686b88 006b9a34  0071f89c 0071ac18 006720e4 0071abe8 0065fc2c
/Quote

I'm putting it through to [EMAIL PROTECTED]

 rebol/version
== 2.2.0.3.1

Andrew Martin
ICQ: 26227169
http://members.xoom.com/AndrewMartin/
--