00:00:00 --- log: started retro/09.12.02 00:02:57 --- join: virl (n=virl__@chello062178085149.1.12.vie.surfer.at) joined #retro 02:50:13 --- quit: virl (Remote closed the connection) 05:12:35 --- join: virl (n=virl__@chello062178085149.1.12.vie.surfer.at) joined #retro 07:48:24 --- join: docl (n=luke@97-120-119-247.ptld.qwest.net) joined #retro 07:50:55 I wonder how I would change it so that it is simply assign: h left 09:44:25 --- quit: virl (Remote closed the connection) 09:47:36 --- join: crc_ (i=d8012b82@gateway/web/freenode/x-amkzmahlssqzuzbt) joined #retro 10:04:30 docl: i may have something for that soon 10:15:54 : assign: ` dup ` char: ` =if ' which @ d->class @ execute ` then ; immediate 11:24:12 --- quit: crc_ ("Page closed") 13:46:51 --- quit: crc (farmer.freenode.net irc.freenode.net) 15:15:26 --- join: crc (n=charlesc@c-68-80-139-0.hsd1.pa.comcast.net) joined #retro 15:15:27 --- mode: ChanServ set +o crc 15:23:32 --- join: virl (n=virl__@chello062178085149.1.12.vie.surfer.at) joined #retro 16:59:25 hi virl 17:03:03 crc: it seems to break my program. 17:04:13 {{ 17:04:24 http://gist.github.com/246972 17:04:33 that's the working version 17:06:05 http://gist.github.com/246972/5cc97807d37540a3e464c8fbec46e9ad257eae83 17:08:23 http://gist.github.com/246972 17:08:39 your code has a flaw in assign: 17:08:41 32 accept 17:08:56 will read a token into tib, but leaves nothing on the stack 17:09:04 ahh 17:10:35 oops, I see what my problem is... I had my own version instead of yours pasted in there 17:10:39 it will work with my accept: 17:10:43 err, assign: 17:10:48 nice! 17:10:56 :: ( n- ) 17:10:57 17:10:57 assign: h left 17:10:57 assign: j down 17:10:58 assign: k up 17:10:58 assign: l right 17:10:59 ; 17:11:01 is cursor 17:23:54 now it draws... 17:23:57 https://gist.github.com/246972/619f0a6d4720f70e106cdfd2d69300c723daba60 23:59:59 --- log: ended retro/09.12.02