gforth/extend.fs - diff

Return to extend.fs CVS log

Up to [gforth] / gforth

version 1.56, 2005/06/28 06:45:07	version 1.59, 2007/03/08 13:55:49
Line 1	Line 1
\ EXTEND.FS CORE-EXT Word not fully tested! 12may93jaw	\ EXTEND.FS CORE-EXT Word not fully tested! 12may93jaw

\ Copyright (C) 1995,1998,2000,2003 Free Software Foundation, Inc.	\ Copyright (C) 1995,1998,2000,2003,2005 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

Line 50 decimal	Line 50 decimal
\G In ANS Forth u3 can only be a positive signed number.	\G In ANS Forth u3 can only be a positive signed number.
>r s>d >r abs -rot	>r s>d >r abs -rot
s>d r> xor r> swap >r >r dabs rot tuck um* 2swap um*	s>d r> xor r> swap >r >r dabs rot tuck um* 2swap um*
swap >r 0 d+ r> -rot r@ um/mod -rot r> um/mod nip swap	swap >r 0 d+ r> -rot r@ um/mod -rot r> um/mod
r> IF dnegate THEN ;	[ s" floored" environment? 0= throw ] [if]
	-rot r> IF IF 1. d+ THEN dnegate ELSE drop THEN
	[else]
	nip swap r> IF dnegate THEN
	[then] ;

\ CASE OF ENDOF ENDCASE 17may93jaw	\ CASE OF ENDOF ENDCASE 17may93jaw