Diff for /gforth/Attic/kernal.fs between versions 1.12 and 1.14

version 1.12, 1994/07/21 10:52:44 version 1.14, 1994/08/19 17:47:23
Line 489  variable dead-code \ true if normal code Line 489  variable dead-code \ true if normal code
 \ This is the preferred alternative to the idiom "?DUP IF", since it can be  \ This is the preferred alternative to the idiom "?DUP IF", since it can be
 \ better handled by tools like stack checkers  \ better handled by tools like stack checkers
     POSTPONE ?dup POSTPONE if ;       immediate restrict      POSTPONE ?dup POSTPONE if ;       immediate restrict
 : ?DUP-NOT-IF \ general  : ?DUP-0=-IF \ general
     POSTPONE ?dup POSTPONE 0= POSTPONE if ; immediate restrict      POSTPONE ?dup POSTPONE 0= POSTPONE if ; immediate restrict
   
 : THEN ( orig -- )  : THEN ( orig -- )
Line 1105  create nl$ 1 c, A c, 0 c, \ gnu includes Line 1105  create nl$ 1 c, A c, 0 c, \ gnu includes
   
 \ */MOD */                                              17may93jaw  \ */MOD */                                              17may93jaw
   
   \ !! I think */mod should have the same rounding behaviour as / - anton
 : */mod >r m* r> sm/rem ;  : */mod >r m* r> sm/rem ;
   
 : */ */mod nip ;  : */ */mod nip ;
Line 1227  Variable argc Line 1228  Variable argc
             dup >r DoError cr r> negate (bye)              dup >r DoError cr r> negate (bye)
         THEN          THEN
     THEN      THEN
     ." GNU Forth 0.0alpha, Copyright (C) 1994 Free Software Foundation" cr      cr
     ." GNU Forth comes with ABSOLUTELY NO WARRANTY; for details type `license'"       ." GNU Forth 0.0alpha, Copyright (C) 1994 Free Software Foundation, Inc." cr
     cr quit ;      ." GNU Forth comes with ABSOLUTELY NO WARRANTY; for details type `license'" cr
       ." Type `bye' to exit"
       quit ;
   
 : license ( -- ) cr  : license ( -- ) cr
  ." This program is free software; you can redistribute it and/or modify" cr   ." This program is free software; you can redistribute it and/or modify" cr
  ." it under the terms of the GNU General Public License as published by" cr   ." it under the terms of the GNU General Public License as published by" cr
  ." the Free Software Foundation; either version 1, or (at your option)" cr   ." the Free Software Foundation; either version 2 of the License, or" cr
  ." any later version." cr cr   ." (at your option) any later version." cr cr
   
  ." This program is distributed in the hope that it will be useful," cr   ." This program is distributed in the hope that it will be useful," cr
  ." but WITHOUT ANY WARRANTY; without even the implied warranty of" cr   ." but WITHOUT ANY WARRANTY; without even the implied warranty of" cr

Removed from v.1.12  
changed lines
  Added in v.1.14


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>