00:00:00 --- log: started retro/08.09.15
01:20:07 --- join: virl (n=virl__@chello062178085149.1.12.vie.surfer.at) joined #retro
01:36:12 --- quit: dnm (Read error: 110 (Connection timed out))
02:17:35 --- join: sixforty (n=sixforty@204.110.227.11) joined #retro
02:18:12 <sixforty> !seen raystm2
02:55:15 --- part: sixforty left #retro
07:53:41 --- quit: virl ("Verlassend")
10:56:41 --- join: neceve (n=ncv@unaffiliated/neceve) joined #retro
11:49:30 --- quit: neceve (Remote closed the connection)
12:58:43 --- join: virl (n=virl__@chello062178085149.1.12.vie.surfer.at) joined #retro
14:32:22 --- join: alexshendi (n=user@dslb-092-074-182-069.pools.arcor-ip.net) joined #retro
14:33:33 <alexshendi> Hello folks, just one more question:
14:34:49 <alexshendi> I tried to build a recursive factorial function. This version works:
14:38:14 <alexshendi> : fac dup 0 !if dup 1- last @ 7 + execute * then dup 0 =if drop 1 then ;
14:39:02 <alexshendi> The question I have is: Why doesn't the following work?
14:40:36 <alexshendi> : fac dup 0 !if dup 1- last @ d->xt execute * then dup 0 =if drop 1 then ;
14:41:04 * alexshendi is puzzeled
15:06:24 <crc> try:
15:06:42 <crc> : fac dup 0 !if dup 1- last @ d->xt @ execute * then dup 0 =if drop 1 then ;
15:08:50 <crc> hmm, that didn't work
15:11:45 <crc> nm, that does work
15:12:06 <crc> d->xt returns a pointer to the xt field in the dictionary header. You need to @ to obtain the actual address
15:12:21 <crc> note that your code will break if a word is defined after fac
15:14:28 <crc> 01,15: fac dup 0 !if dup 1- [ last @ d->xt @ literal, ] execute * then dup 0 =if drop 1 then ;
15:14:40 <crc> this should work properly
15:16:21 <crc> Also you can do recursion by name:
15:16:37 <crc> : fac dup 0 !if dup 1- fac * then dup 0 =if drop 1 then ;
15:21:19 <crc> regarding documentation on retro 7.5, I put it in the pastebin at http://retroforth.com/paste/?id=533
18:00:49 --- quit: nighty^ (Read error: 54 (Connection reset by peer))
18:01:15 --- join: nighty^ (n=nighty@x122091.ppp.asahi-net.or.jp) joined #retro
18:28:16 --- join: dnm (n=dnm@c-68-49-46-251.hsd1.va.comcast.net) joined #retro
18:32:19 <alexshendi>    Thanks crc, also for the 7.5 docs.
18:40:46 --- quit: nighty^ (Read error: 104 (Connection reset by peer))
18:41:11 --- join: nighty^ (n=nighty@x122091.ppp.asahi-net.or.jp) joined #retro
21:04:10 --- join: nighty__ (n=nighty@210.188.173.246) joined #retro
21:28:44 --- quit: alexshendi (Read error: 110 (Connection timed out))
22:33:04 --- quit: dnm ()
22:48:01 --- join: dnm (n=dnm@c-68-49-46-251.hsd1.va.comcast.net) joined #retro
23:59:59 --- log: ended retro/08.09.15