00:00:00 --- log: started retro/07.01.14 03:31:42 --- join: Cheery (n=Cheery@a81-197-54-146.elisa-laajakaista.fi) joined #retro 09:45:48 --- join: tathi (n=josh@pdpc/supporter/bronze/tathi) joined #retro 11:54:56 --- join: arke_ (n=chris@pD9E04E27.dip.t-dialin.net) joined #retro 12:08:18 good afternoon 12:12:27 --- quit: arke (Connection timed out) 13:19:13 --- quit: Cheery ("Download Gaim: http://gaim.sourceforge.net/") 14:40:43 hey crc 14:44:55 hi Quartus_ 14:48:40 what up, c-dawg? :) 14:51:30 not much 14:52:22 Not much. heh. Quartus_ he just got toka to ack like a server. I suppose that's not much with experiance like ya'll have. :) 14:53:36 Nay I say much, much. 14:54:07 using an external tool; this could be done with retro as well 14:56:53 which tool? 14:58:27 socket 14:58:38 http://www.jnickelsen.de/socket/ 15:11:11 thanks 16:07:46 --- nick: arke_ -> arke 16:07:47 hi crc 16:09:03 crc: question ... retro reveals early, right? how do you write decorator words - as in, words that have the same name as some previous word but add functionailty to it and use the old one as well? ' name : name ... compile ... ; or something similar works but I'm just curious if you have some sort of mechanism to do this already 16:19:13 arke, try this: 16:19:14 macro: prior last @ >r last @ :link @ last ! ' dup >entry :class @ execute r> last ! ; 16:19:42 prior used to be in retro8, it was dropped due to lack of use in the 9.x releases 16:21:40 sweet :) 16:21:48 * arke analyzes to try and understand 16:21:57 * crc has been thinking of making the binding settable, e.g., "early on" / "early off" in 9.3 16:22:47 crc: what's the advantage of early revelation? 16:22:49 it simply does a temporary relink of the dictionary to hide the most recent name. then a search for the old header, and compiles using its class handler. 16:23:18 tathi, it's been part of retro since at least release 4; allows for recursion by name 16:23:44 ah. tradition. :) 16:23:50 * crc will note that toka, his experimental forth-like language, does not use early binding of names to code 16:27:35 loops with recursion = nice :) 16:31:16 loc: : loop 0; tuck + swap 1- loop ; : sum 0 swap loop nip ; ' sum ;loc is sum 16:38:40 : sum 0 dup rot ?do i + -1 +loop ; 16:41:06 : sum 0 swap begin dup while tuck + swap 1- repeat drop ; 18:08:41 --- join: snoopy_1711 (i=snoopy_1@dslb-084-058-188-180.pools.arcor-ip.net) joined #retro 18:17:04 --- quit: Snoopy42 (Read error: 145 (Connection timed out)) 18:17:28 --- nick: snoopy_1711 -> Snoopy42 18:46:50 --- quit: tathi ("leaving") 21:23:47 --- join: Cheery (n=Cheery@a81-197-54-146.elisa-laajakaista.fi) joined #retro 21:42:22 --- quit: nighty_ ("Disappears in a puff of smoke") 23:04:45 --- quit: crc (Remote closed the connection) 23:59:59 --- log: ended retro/07.01.14