00:00:00 --- log: started retro/10.03.31
03:43:19 --- quit: probonono (Ping timeout: 260 seconds)
04:17:10 --- join: probonono (~User@unaffiliated/probonono) joined #retro
05:02:48 --- join: Mat2 (~5b42fd79@gateway/web/freenode/x-soxediqbpclbwxvn) joined #retro
05:03:56 <Mat2> crc: just readin the logs - congratulation to the baby
05:04:00 <Mat2> ciao
05:04:10 --- quit: Mat2 (Client Quit)
05:04:49 --- join: Mat2 (~5b42fd79@gateway/web/freenode/x-jmoewjofuoqwimvy) joined #retro
05:05:02 <Mat2> sorry, my english, congratulation on the baby of course !!
05:05:10 --- quit: Mat2 (Client Quit)
10:01:19 --- quit: virl (Remote host closed the connection)
13:58:09 --- join: sixforty (~sixforty@pdpc/supporter/active/sixforty) joined #retro
14:18:35 --- quit: sixforty (Quit: Leaving.)
16:26:28 --- join: erider (~erider@unaffiliated/erider) joined #retro
17:59:58 <crc> good evening
18:10:29 <erider> crc, did you have the baby 
18:10:35 <crc> not yet :(
18:10:40 <erider> hmm 
18:10:48 <erider> is she late 
18:10:53 <crc> no
18:11:08 <erider> I thought you was going to blow yesterday 
18:11:10 <crc> we technically still have 1 week
18:11:19 <erider> oh 
18:11:30 <crc> she's having contractions, but not dilating yet
18:11:40 <erider> ah ok 
18:12:09 * crc is working to add prefixes back to retro
18:37:04 <crc> docl: is there a way to move words into an already created vocabulary?
19:10:58 --- log: started retro/10.03.31
19:10:58 --- join: clog (~nef@bespin.org) joined #retro
19:10:58 --- topic: 'Retro Forth | Logs @  http://tr.im/Kept | http://retroforth.org | Stable Release 10.4 | Wiki Key: d98t~3 | http://www.forthcommunity.com'
19:10:58 --- topic: set by crc!~charlesch@c-68-80-139-0.hsd1.pa.comcast.net on [Mon Feb 01 19:02:57 2010]
19:10:58 --- names: list (clog erider probonono crc crcx docl retro-commit @ChanServ SimonRC yiyus)
19:10:58 -gibson(freenode.net)- [freenode-info] channel trolls and no channel staff around to help? please check with freenode support: http://freenode.net/faq.shtml#gettinghelp
19:23:33 <docl> crc: here's a start:
19:23:35 <docl> : tovoc ( "- ) last @ dup @ last ! dup ' 1+ dup @ -rot ! swap ! ;
19:24:05 <docl> that parses for the vocab and sends the last created word to it.
19:24:55 <crc> docl: that should do what I need, thanks
19:37:32 <retro-commit> [crcx/retroforth] 58e250: add >voc to vocabs.retro
19:37:33 <retro-commit> [crcx/retroforth] ad5136: use >vocab instead of >voc...
19:45:24 <docl> looks like >vocab only consumes one stack element
19:45:38 <crc> yup, the address of the vocabulary to use
19:46:07 <crc> docl: it only works with a vocabulary that is shut
19:49:59 <docl> actually, I think it works but needs the open command to be run before it notices the change.
19:50:14 <crc> I'll try that
19:50:33 <docl> actually the .vocab class recognizes it as closed as soon as you run >vocab
19:50:53 <docl> so if you type the name from the interpreter, it becomes open
19:52:32 <retro-commit> [crcx/retroforth] 55f2bf: patch to reopen vocabularies after >vocab is calle...
20:05:26 <crc> http://retroforth.com/paste/?id=2069
20:06:17 <crc> : __# ( a- ) .data ` @ ` . ; immediate prefix
20:06:21 <crc> #base
20:06:25 <crc> as an example
20:09:57 <crc> this still allows notfound to be revectored, but replaces the minimal one in core.retro with itself; so a devector restores this and not the original definition
20:57:21 --- quit: erider (Ping timeout: 248 seconds)
21:12:42 --- join: virl (~virl__@chello062178085149.1.12.vie.surfer.at) joined #retro
21:35:01 <crc> http://retroforth.com/paste/?id=2070 is updated with the 9.x prefix set and some comments at the start
21:38:01 <docl> cool!
21:38:29 <crc> this will likely be checked in once it gets some better testing
21:39:56 <crc> I think this was the last piece from the 7/8/9 days that I hadn't reimplemented in some manner
21:42:56 --- join: crc_ (~charlesch@71.23.210.149) joined #retro
21:43:01 <crc_> with this, allot can be replaced by +heap and -heap and so on
21:43:06 <crc_> with this, allot can be replaced by +heap and -heap and so on
21:43:23 --- quit: crc (Disconnected by services)
21:43:28 --- nick: crc_ -> crc
21:43:36 --- mode: ChanServ set +o crc
21:44:32 <docl> nice
21:49:40 <docl> here's an idea for nested vectoring:
21:49:41 <docl> : :is ( aa- ) dup @ 8 =if 1+ @ :is ;then dup 8 swap ! 1+ ! ;
21:50:16 <crc> is this supposed to be recursive?
21:50:22 <docl> yes
21:50:32 <crc> ok
21:52:28 <crc> looks like it'll work ok
21:52:49 <crc> I'll do more testing tonight (almost 1pm, so I need to go to bed)
21:54:09 <crc> I've slept < 12 hours so far this week; if I get 4-5 tonight I'll be doing good :)
21:55:01 <docl> have a good night
21:55:07 <crc> you too
21:55:11 <docl> ok :)
21:58:39 <docl> here's a devector that devectors everything in the tree:
21:58:40 <docl> : :devector ( a- )  dup @ 8 =if dup 1+ @ :devector then dup 0 swap ! 1+ 0 swap ! ;
22:03:08 <docl> with examples: http://retroforth.com/paste/?id=2071
22:18:11 <docl> hmm. seems like it would be more useful if only the deepest vector was removed.
23:06:15 --- quit: virl (Remote host closed the connection)
23:59:59 --- log: ended retro/10.03.31