gforth/history.fs - diff

Return to history.fs CVS log

Up to [gforth] / gforth

version 1.65, 2007/10/22 20:24:10	version 1.66, 2007/10/22 20:30:39
Line 18	Line 18
\ along with this program; if not, write to the Free Software	\ along with this program; if not, write to the Free Software
\ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.	\ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.

	: ctrl-i ( "<char>" -- c )
	char toupper $40 xor ;

	' ctrl-i
:noname	:noname
char toupper $1f and ;	ctrl-i postpone Literal ;
:noname
char toupper $1f and postpone Literal ;
interpret/compile: ctrl ( "<char>" -- ctrl-code )	interpret/compile: ctrl ( "<char>" -- ctrl-code )

\ command line editing 16oct94py	\ command line editing 16oct94py