Commit 342d8aad authored by anton's avatar anton

CTRL ? now works

parent d8c46c7b
......@@ -18,10 +18,12 @@
\ along with this program; if not, write to the Free Software
\ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.
: ctrl-i ( "<char>" -- c )
char toupper $40 xor ;
' ctrl-i
:noname
char toupper $1f and ;
:noname
char toupper $1f and postpone Literal ;
ctrl-i postpone Literal ;
interpret/compile: ctrl ( "<char>" -- ctrl-code )
\ command line editing 16oct94py
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment