[Win32forth-cvs] win32forth/src ASMWIN32.F,1.4,1.5 DIS486.F,1.4,1.5 FLOAT.F,1.16,1.17

[George H. <geo...@us...>]

Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8996/win32forth/src

Modified Files:
	ASMWIN32.F DIS486.F FLOAT.F 
Log Message:
gah: replaced compile with postpone

Index: ASMWIN32.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/ASMWIN32.F,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** ASMWIN32.F	2 Jun 2005 21:14:55 -0000	1.4
--- ASMWIN32.F	31 Aug 2005 09:04:49 -0000	1.5
***************
*** 51,55 ****
  
  : _code>        ( -- ) \ create the ;code part of a low level defining word
!         ?csp !csp compile (;code) 
          [ also forth ] code-align code-here , [ previous ]
          postpone [ init-asm ;
--- 51,55 ----
  
  : _code>        ( -- ) \ create the ;code part of a low level defining word
!         ?csp !csp postpone (;code) 
          [ also forth ] code-align code-here , [ previous ]
          postpone [ init-asm ;

Index: DIS486.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/DIS486.F,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** DIS486.F	29 Aug 2005 15:56:27 -0000	1.4
--- DIS486.F	31 Aug 2005 09:04:49 -0000	1.5
***************
*** 87,91 ****
  : .s"
      postpone s"
!     compile >s ; immediate
  
  : >s8
--- 87,91 ----
  : .s"
      postpone s"
!     postpone >s ; immediate
  
  : >s8
***************
*** 94,98 ****
  : .sop"
      postpone s"
!     compile >s8 ; immediate
  
  
--- 94,98 ----
  : .sop"
      postpone s"
!     postpone >s8 ; immediate
  
  

Index: FLOAT.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/FLOAT.F,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** FLOAT.F	29 Aug 2005 15:56:27 -0000	1.16
--- FLOAT.F	31 Aug 2005 09:04:49 -0000	1.17
***************
*** 388,392 ****
  : FTO
                  state @                 \ compiletime: ( FS: n - ) ( -<name_fvalue>- )
!                 if      postpone [']  compile _fto
                  else    '  _fto         \ runtime:     ( FS: n - ) ( 'fvalue - )
                  then    ; IMMEDIATE
--- 388,392 ----
  : FTO
                  state @                 \ compiletime: ( FS: n - ) ( -<name_fvalue>- )
!                 if      postpone [']  postpone _fto
                  else    '  _fto         \ runtime:     ( FS: n - ) ( 'fvalue - )
                  then    ; IMMEDIATE