Overview
| SHA1 Hash: | 545ff85ff07cad4b3a36b41469ec972b75b4c650 |
|---|---|
| Date: | 2011-11-25 17:06:02 |
| User: | crc |
| Comment: | editor: use whend combinator instead of "dup nn = [ drop .., ] drop .., ifTrue" |
| Timelines: | family | ancestors | descendants | both | trunk |
| Other Links: | files | manifest |
Tags And Properties
- branch=trunk inherited from [dc67bca1f3]
- sym-trunk inherited from [dc67bca1f3]
Changes
[hide diffs]
[patch]Modified editor.rx from [4c76942b59e7f993] to [ec6f056c2438ce46].
@@ -72,13 +72,13 @@
[ dup 80 =
[ drop !column display 0 ]
[ 32 over @line get ! 1+ -1 ] if
] while ;
: remap ( c-c )
- dup 9 = [ drop 27 ] ifTrue
- dup 13 = [ drop 0 ] ifTrue
- dup 10 = [ drop 0 advance? display ] ifTrue ;
+ [ 9 = ] [ 27 ] whend
+ [ 13 = ] [ 0 ] whend
+ [ 10 = ] [ 0 advance? display ] whend ;
: input ( - )
repeat
display
@mode 0; drop
getc 0;