[gforth] / gforth / history.fs  

gforth: gforth/history.fs

Diff for /gforth/history.fs between version 1.65 and 1.66

version 1.65, Mon Oct 22 20:24:10 2007 UTC version 1.66, Mon Oct 22 20:30:39 2007 UTC
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

Generate output suitable for use with a patch program
Legend:
Removed from v.1.65  
changed lines
  Added in v.1.66
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help