From: George H. <geo...@us...> - 2005-05-14 12:37:02
|
Update of /cvsroot/win32forth/win32forth/src/kernel In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18885/win32forth/src/kernel Modified Files: meta-compiler.f Log Message: gah: modified to work with hidden float? Index: meta-compiler.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/meta-compiler.f,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** meta-compiler.f 26 Apr 2005 19:56:50 -0000 1.3 --- meta-compiler.f 14 May 2005 12:36:49 -0000 1.4 *************** *** 765,770 **** if false else double? abort" Doubles not supported in meta-compiler" float? abort" Floats not supported in metacompiler" ! drop true then ; \ ====================================================================== --- 765,772 ---- if false else double? abort" Doubles not supported in meta-compiler" + [ also hidden ] float? abort" Floats not supported in metacompiler" ! [ previous ] ! drop true then ; \ ====================================================================== *************** *** 819,820 **** --- 821,823 ---- + |