00:00:00 --- log: started retro/14.10.24
00:07:50 --- join: Sgeo (~quassel@ool-44c2aebc.dyn.optonline.net) joined #retro
00:07:50 --- join: yiyus (1242712427@je.je.je) joined #retro
00:14:05 <tangentstorm> is there a word you can put inside a quote that will force it to leave the containing function?
00:15:06 <tangentstorm> like:   : x 0 [ 0; 5 putn ] 2 putn ; x
00:15:08 <tangentstorm> this prints 2
00:15:35 <tangentstorm> but is there something i can put in place of 0; so it prints nothing?
00:24:40 --- quit: Sgeo (*.net *.split)
00:24:42 --- quit: yiyus (*.net *.split)
00:26:56 <tangentstorm> i thought this would work:
00:26:58 <tangentstorm> ok  : 0;; dup not 0; drop 2pop pop drop 2push ;
00:27:00 <tangentstorm> ok  : x 0 [ 0;; 5 putn ] 2 putn ;
00:27:39 <tangentstorm> oh duh.
00:27:50 <tangentstorm> gotta actually invoke the quote :)
00:28:07 --- join: Sgeo (~quassel@ool-44c2aebc.dyn.optonline.net) joined #retro
00:28:08 --- join: yiyus (1242712427@je.je.je) joined #retro
00:31:25 <tangentstorm> this works:
00:31:28 <tangentstorm> : 0;; dup not 0; 2pop 2pop drop push 2push ;
00:31:32 <tangentstorm> : x 0 [ 0;; 5 putn ] do 2 putn cr ;
00:31:57 <tangentstorm> when the quote is called, it's actually 3 deep on the return stack because of the 'do'
00:33:12 <tangentstorm> but i suppose it kind of violates the whole point of structured programming to do this in the first place. ah well. :)
02:49:05 --- quit: carvite (*.net *.split)
02:49:28 --- join: carvite (~carvite@unaffiliated/stryx/x-3871776) joined #retro
02:53:58 --- quit: saper (*.net *.split)
02:54:39 --- join: saper (saper@wikipedia/saper) joined #retro
06:20:39 <tangentstorm> hrm. how would i do  CREATE ... DOES>  ?
06:21:16 <tangentstorm> huh. ancient wiki article: http://retroforth.org/pages/?CreateDoes 
06:30:37 <tangentstorm> hrm. this is way out of date. 
06:31:03 <tangentstorm> crc : what are the plans for the old fossil wiki? i don't want to update it if it's going away... 
13:58:30 * tangentstorm adds some words to control echoing behavior
13:58:32 <tangentstorm> https://github.com/tangentstorm/retro/commit/d1352ec6f513ed427581f059ed38393cd12b1a62
14:35:30 --- join: beretta (~beretta@cpe-65-185-42-203.columbus.res.rr.com) joined #retro
15:39:30 --- quit: beretta (*.net *.split)
15:39:31 --- quit: carvite (*.net *.split)
15:40:08 --- join: carvite (~carvite@81.4.123.134) joined #retro
15:40:15 --- join: beretta (~beretta@cpe-65-185-42-203.columbus.res.rr.com) joined #retro
18:10:16 <crc> tangentstorm: I'll merge the echo control this weekend
18:11:03 <crc> The old fossil wiki is read only I think. (It was frozen with 10.x, and made read only due to spam issues)
21:22:44 --- quit: melody (Remote host closed the connection)
21:32:24 --- quit: carvite (Ping timeout: 258 seconds)
21:34:39 --- join: carvite (~carvite@81.4.123.134) joined #retro
22:14:39 --- quit: beretta (Ping timeout: 255 seconds)
23:59:59 --- log: ended retro/14.10.24