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

version 1.12, 1994/07/21 10:52:44 version 1.13, 1994/07/27 13:37:02
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.13


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