[Win32forth-cvs] win32forth/src/console WinBase.f,1.1,1.2

[Alex M. <ale...@us...>]

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

Modified Files:
	WinBase.f 
Log Message:
arm: redefine ?loading in terms of source-id; correct ?winerror and remove call to save-input

Index: WinBase.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/console/WinBase.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** WinBase.f	21 Dec 2004 00:19:09 -0000	1.1
--- WinBase.f	13 Apr 2005 00:09:27 -0000	1.2
***************
*** 98,115 ****
  
     : DefinedAbort,   \ compiles an ABORT" with the file name and line where defined
!         SAVE-INPUT  2DROP 2DROP ROT   \ get current file name and position
!           IF  S" Defined in file: "  TEMP$ PLACE
!               ROT COUNT              TEMP$ +PLACE
                S"  -- Line: "         TEMP$ +PLACE
!               DROP (.)               TEMP$ +PLACE
                POSTPONE (ABORT")
!               TEMP$ COUNT
!               HERE >R DUP C,
!               DUP ALLOT
!               R@ 1+ SWAP MOVE
!               0 C,
!               ALIGN
!               R> COUNT \N->CRLF
!         ELSE  2DROP DROP  POSTPONE DROP
          THEN
          ;
--- 98,109 ----
  
     : DefinedAbort,   \ compiles an ABORT" with the file name and line where defined
!         ?LOADING
!         IF  S" Defined in file: "    TEMP$ PLACE
!               LOADFILE COUNT         TEMP$ +PLACE
                S"  -- Line: "         TEMP$ +PLACE
!               LOADLINE @ (.)         TEMP$ +PLACE
                POSTPONE (ABORT")
!               TEMP$ COUNT ", 0 c, align
!         ELSE  POSTPONE DROP
          THEN
          ;
***************
*** 249,251 ****
  return to the word that called it.
  ------------------------------------------------------  Comment;
-