[Win32forth-cvs] win32forth-stc/src 486asm.f,1.3,1.4

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

Update of /cvsroot/win32forth/win32forth-stc/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv13126/win32forth-stc/src

Modified Files:
	486asm.f 
Log Message:
gah: Bug fix to ;code

Index: 486asm.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/486asm.f,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** 486asm.f	22 Mar 2007 02:06:38 -0000	1.3
--- 486asm.f	24 Apr 2007 08:50:32 -0000	1.4
***************
*** 29,33 ****
  ( declare the vocabularies needed )
  only forth definitions ( vocabulary assembler ) also assembler definitions
! vocabulary asm-hidden also asm-hidden definitions 
  
  ( words to manipulate the vocabulary search order )
--- 29,33 ----
  ( declare the vocabularies needed )
  only forth definitions ( vocabulary assembler ) also assembler definitions
! vocabulary asm-hidden also asm-hidden definitions
  
  ( words to manipulate the vocabulary search order )
***************
*** 2032,2036 ****
  
  : _;code ( create the [;code] part of a low level defining word )
!         ?csp !csp compile (;code) postpone [ init-asm ;
  
  in-forth
--- 2032,2036 ----
  
  : _;code ( create the [;code] part of a low level defining word )
!         ?csp !csp postpone (;code) postpone unnest postpone [ init-asm ;
  
  in-forth
***************
*** 2045,2049 ****
  
  : macro: ( create a macro in the assembler vocabulary )
!         get-current >r also assembler definitions 
          : postpone enter-macro r> set-current ;
  
--- 2045,2049 ----
  
  : macro: ( create a macro in the assembler vocabulary )
!         get-current >r also assembler definitions
          : postpone enter-macro r> set-current ;
  
***************
*** 2061,2065 ****
  
  : endm ( end a macro definition )
!         postpone leave-macro postpone ; previous ; 
  also forth immediate previous
  
--- 2061,2065 ----
  
  : endm ( end a macro definition )
!         postpone leave-macro postpone ; previous ;
  also forth immediate previous