00:00:00 --- log: started forth/09.06.26 00:00:59 * thom_ wanders around 00:43:37 --- join: sunwukong (n=vukung@210-20-93-83.rev.home.ne.jp) joined #forth 01:10:16 --- quit: sunwukong (Read error: 104 (Connection reset by peer)) 01:10:31 --- join: sunwukong (n=vukung@210-20-93-83.rev.home.ne.jp) joined #forth 01:27:25 --- join: GeDaMo (n=gedamo@212.225.115.246) joined #forth 02:16:39 --- quit: nighty__ (Client Quit) 02:16:57 --- quit: proteusguy_ ("Leaving") 02:17:20 --- join: proteusguy (n=proteusg@61.7.144.97) joined #forth 03:55:47 --- quit: GeDaMo ("Leaving.") 04:18:20 --- quit: sunwukong (Read error: 110 (Connection timed out)) 05:26:37 --- join: sunwukong (n=vukung@210-20-93-83.rev.home.ne.jp) joined #forth 05:56:43 --- quit: sunwukong (Success) 07:17:22 --- join: Quartus` (n=Quartus`@74.198.8.58) joined #forth 07:42:29 --- quit: proteusguy (Read error: 110 (Connection timed out)) 07:43:34 --- join: proteusguy (n=proteusg@61.7.144.97) joined #forth 08:08:02 --- quit: segher ("This computer has gone to sleep") 08:21:08 --- quit: maht (Read error: 110 (Connection timed out)) 08:33:06 --- join: GeDaMo (n=gedamo@212.225.115.246) joined #forth 08:42:46 --- join: GeDaM1 (n=gedamo@dyn-62-56-88-122.dslaccess.co.uk) joined #forth 08:49:59 --- join: segher (n=segher@84-105-60-153.cable.quicknet.nl) joined #forth 08:54:55 --- quit: GeDaMo (Read error: 101 (Network is unreachable)) 08:55:49 --- quit: GeDaM1 ("Leaving.") 08:56:10 --- join: GeDaMo (n=gedamo@dyn-62-56-88-122.dslaccess.co.uk) joined #forth 09:50:30 --- join: xjrn (n=jim@astound-69-42-10-25.ca.astound.net) joined #forth 09:54:28 --- join: benny99 (n=benny@p5486E14C.dip.t-dialin.net) joined #forth 09:55:24 is it possible to get the name (as a string) of a word, if you only got the xt of the word ? 09:56:57 I don't think there's a standard way 09:59:49 hm :( 10:00:30 but I guess I don't really need it 10:01:12 Your particular implementation may have a way 10:03:30 is there a standard way to get from a constant string to an xt ? 10:04:09 well ' reads a string out of the input stream and returns its xt 10:05:14 but I also want the string 10:07:34 --- quit: benny99 (hubbard.freenode.net irc.freenode.net) 10:07:35 --- quit: madwork__ (hubbard.freenode.net irc.freenode.net) 10:07:35 --- quit: ENKI-][ (hubbard.freenode.net irc.freenode.net) 10:07:35 --- quit: tathi (hubbard.freenode.net irc.freenode.net) 10:07:35 --- quit: kspaans (hubbard.freenode.net irc.freenode.net) 10:07:37 --- join: kspaans_ (i=kspaans@artificial-flavours.csclub.uwaterloo.ca) joined #forth 10:07:46 --- join: madwork__ (n=madgarde@204.138.110.15) joined #forth 10:12:38 --- join: tathi (n=josh@dsl-216-227-91-166.fairpoint.net) joined #forth 10:14:53 --- join: neceve (n=ncv@unaffiliated/neceve) joined #forth 11:05:15 --- nick: kspaans_ -> kspaans 11:17:51 --- join: pgas (n=user@pdpc/supporter/active/pgas) joined #forth 11:20:03 --- quit: thom_ ("This computer has gone to sleep") 11:36:54 --- join: benny99 (n=benny@p5486D647.dip.t-dialin.net) joined #forth 11:41:25 any ideas for defining a word 'make-of' that defines words that do the following --> 'make-of size' -- defines a word 'size-of' that could also be defined as ': size-of ' size ;' 11:41:43 I'm just playing around, so there's no serious need for a solution 11:44:15 benny99: if you're using gforth, there's a way of getting the name of a word as a string 11:44:18 http://forth.pastebin.ca/1475730 11:44:33 using parse also works 11:44:43 and 'find' finds the xt for you 11:44:50 that is my first attempt 11:45:02 it works a single time only 11:45:27 and I guess it's invalid code according to ANS Forth 11:46:46 "A program shall not attempt to nest compilation of definitions." --- http://forth.pastebin.ca/1475730 11:47:16 eh - http://www.taygeta.com/forth/dpans3.htm#3.4.1 11:55:17 (no it does not) 11:56:18 --- quit: segher ("This computer has gone to sleep") 12:12:36 : $cat pad swap 0 do 2dup + >r swap cmove r> loop pad tuck - ; 12:12:38 : make-of s" -of" bl parse 2dup 2>r s" constant " 2r> s" ' " 5 $cat evaluate ; 12:12:41 benny99: 12:18:34 --- quit: benny99 (No route to host) 12:28:43 ಠ_ಠ 12:45:59 --- join: GoNoGo (n=GoNoGo@cro34-3-82-236-93-215.fbx.proxad.net) joined #forth 12:50:17 --- quit: xjrn (Remote closed the connection) 12:55:38 --- quit: gnomon (Read error: 60 (Operation timed out)) 12:55:51 --- join: gnomon (n=gnomon@CPE001d60dffa5c-CM000f9f776f96.cpe.net.cable.rogers.com) joined #forth 13:05:14 --- quit: GoNoGo ("ChatZilla 0.9.85 [Firefox 3.0.11/2009060215]") 13:48:41 --- quit: pgas ("/quit") 14:41:36 --- quit: GeDaMo ("Leaving.") 16:48:09 --- join: thom_ (n=thom@pool-173-51-224-238.lsanca.fios.verizon.net) joined #forth 16:54:49 --- join: Tesla_ (n=info@58.248.188.167) joined #forth 17:06:19 --- quit: Tesla (Read error: 110 (Connection timed out)) 17:22:14 --- quit: neceve (Read error: 110 (Connection timed out)) 18:34:57 --- join: sunwukong (n=vukung@static-122-103-239-152.ng-fam.svips.gol.ne.jp) joined #forth 19:01:09 --- quit: sunwukong (Read error: 110 (Connection timed out)) 19:15:38 --- quit: kspaans (Read error: 60 (Operation timed out)) 19:17:38 --- join: kspaans (i=kspaans@artificial-flavours.csclub.uwaterloo.ca) joined #forth 19:23:46 --- quit: proteusguy (Remote closed the connection) 20:40:11 --- quit: madgarden (Remote closed the connection) 20:41:20 --- join: madgarden (n=madgarde@CPE001d7e527f89-CM00159a65a870.cpe.net.cable.rogers.com) joined #forth 21:04:45 --- join: proteusguy (n=proteusg@ppp-124-121-160-107.revip2.asianet.co.th) joined #forth 23:03:47 --- join: pgas (n=user@pdpc/supporter/active/pgas) joined #forth 23:21:59 --- quit: thom_ ("This computer has gone to sleep") 23:59:59 --- log: ended forth/09.06.26