00:00:00 --- log: started forth/07.08.05 00:21:00 --- quit: tetonca ("User disconnected") 00:24:21 --- join: tetonca (n=chris@66.155.140.224) joined #forth 00:33:39 --- join: TreyB (n=trey@cpe-66-87-192-27.tx.sprintbbd.net) joined #forth 00:36:21 --- quit: TreyB_ (Read error: 110 (Connection timed out)) 01:43:24 --- quit: ygrek ("Leaving") 02:45:13 --- join: ygrek (i=user@gateway/tor/x-e2f07a64d4ab913b) joined #forth 03:44:25 --- part: tetonca left #forth 04:05:16 --- quit: Al2O3 ("Eggplant & SenseTalk: Driving Success Through Automation") 06:50:03 hi. 06:55:07 --- quit: crc (Remote closed the connection) 07:56:11 --- join: edrx (i=edrx@200.217.105.212) joined #forth 07:56:40 --- quit: Quartus (Read error: 110 (Connection timed out)) 07:56:58 --- join: Quartus (n=neal@CPE0001023f6e4f-CM001947482b20.cpe.net.cable.rogers.com) joined #forth 07:56:59 --- mode: ChanServ set +o Quartus 11:01:55 --- quit: edrx (Read error: 113 (No route to host)) 11:20:31 --- part: magnus__ left #forth 11:57:17 --- quit: Quartus (Read error: 110 (Connection timed out)) 11:57:29 --- join: Quartus (n=neal@CPE0001023f6e4f-CM001947482b20.cpe.net.cable.rogers.com) joined #forth 11:57:29 --- mode: ChanServ set +o Quartus 12:43:02 --- quit: ygrek (Remote closed the connection) 12:44:29 --- join: ygrek (i=user@gateway/tor/x-d99e7e3783e32d6d) joined #forth 12:45:39 --- join: arvenEx (n=raven@87.252.242.16) joined #forth 12:45:44 --- join: slava (n=slava@CPE0080ad77a020-CM000e5cdfda14.cpe.net.cable.rogers.com) joined #forth 12:45:53 --- mode: ChanServ set +o slava 12:58:45 --- quit: ygrek ("Leaving") 13:29:58 hi slava 13:30:02 hi 13:59:10 --- join: crc (n=crc@pool-70-110-211-174.phil.east.verizon.net) joined #forth 14:01:53 --- mode: ChanServ set +o crc 14:06:09 hey crc. 14:06:59 hi Quartus 14:07:27 so, in forth, char X ' emit execute prints X 14:07:34 now, imagine if you had a word 14:07:36 lets call it '' 14:07:54 which would read ahead for a word name, and pop a value from the stack, and push an XT which when executed pushes that value first 14:08:11 char X '' emit would give you a single value on the stack, which when executed prints X 14:08:24 ok. 14:08:37 would you find this useful? can it be done easily enough already? 14:09:15 I'm not sure what use it might have. It can be done readily enough. 14:09:48 well, suppose you had a word 'for-each' which takes an array, length, and an xt. 14:09:56 my-numbers 10 ' . for-each 14:10:17 Ok. 14:10:25 now you could also do 14:10:29 : foo 3 + . ; 14:10:33 my-numbers 10 ' foo for-each 14:10:40 Yes. Also readily done. 14:10:45 but suppose you wanted the 3 to be a parameter to the word calling for-each 14:11:22 : print-prices ( discount -- ) >r prices r> '' + for-each ; 14:12:10 or, rather -- my-numbers 10 :noname 3 + . ; for-each 14:12:38 yeah. 14:13:47 simpler. Specifies, in situ, the required operation, without the need for code-producing parsing words. 14:13:59 what if the 3 is a parameter? 14:14:10 It is a parameter, but I suspect you mean something else? 14:14:22 : foo my-numbers 10 :noname 3 + . ; for-each ; 14:14:26 the 3 is hard-coded in the definiton of foo. 14:14:39 you are, there, nesting definitions, which isn't a Standard Forth thing. 14:15:05 oh, ok. 14:16:16 If I needed such a peculiar ad-hoc mechanism, and were somehow obliged not to modify for-each, I imagine I'd pass the parameter via a variable. 14:16:51 That's the most straightforward solution that comes immediately to midn. 14:16:55 mind, even 14:17:49 but doubtless this is all preamble for a snippet of Factor code you wish to show? :) 14:18:14 no, not really 14:18:19 more like functional programming in general 14:26:59 I was certain it was leading up to a factor one-liner :) 14:27:15 well it is, because code is stored in data structures 14:28:31 it is in Forth, too, albeit opaque ones 15:01:35 --- join: crest__ (n=crest@p5489E42F.dip.t-dialin.net) joined #forth 15:18:04 --- quit: crest_ (Read error: 110 (Connection timed out)) 15:49:35 --- quit: arvenEx ("WeeChat 0.2.5") 16:08:32 --- join: JasonWoof (n=jason@c-24-63-217-45.hsd1.ma.comcast.net) joined #forth 16:08:32 --- mode: ChanServ set +o JasonWoof 16:22:55 --- join: bobber (i=bobber@168-05.dynamic.visi.com) joined #forth 16:23:30 --- quit: bobber (Client Quit) 16:54:14 --- quit: nighty^ ("Disappears in a puff of smoke") 16:58:56 --- join: nighty^ (n=nighty@p1146-adsau16honb13-acca.tokyo.ocn.ne.jp) joined #forth 17:37:32 --- join: Al2O3 (n=Al2O3@12.144.193.67) joined #forth 17:58:08 --- quit: Quartus (Read error: 110 (Connection timed out)) 18:22:36 --- join: Quartus (n=neal@CPE0001023f6e4f-CM001947482b20.cpe.net.cable.rogers.com) joined #forth 18:22:36 --- mode: ChanServ set +o Quartus 18:32:26 --- join: tetonca (n=chris@66.155.140.232) joined #forth 19:56:15 --- quit: nighty^ ("Disappears in a puff of smoke") 20:36:27 --- join: forther (n=forther@c-67-180-150-67.hsd1.ca.comcast.net) joined #forth 20:47:03 --- quit: forther ("Leaving") 21:32:44 --- join: skas_wk (n=skas@203-217-61-74.perm.iinet.net.au) joined #forth 21:52:56 --- join: ygrek (i=user@gateway/tor/x-a7c95fd437661d48) joined #forth 22:25:12 --- join: forther (n=forther@c-67-180-150-67.hsd1.ca.comcast.net) joined #forth 22:55:41 --- quit: forther ("Leaving") 23:37:16 --- part: tetonca left #forth 23:59:59 --- log: ended forth/07.08.05