Diff for /gforth/kernel/basics.fs between versions 1.2 and 1.3

version 1.2, 1997/06/06 17:28:15 version 1.3, 1997/07/06 16:08:57
Line 183  has-locals [IF] Line 183  has-locals [IF]
     handler @ >r      handler @ >r
     rp@ handler !      rp@ handler !
     execute      execute
     r> handler ! rdrop rdrop rdrop 0 ;      r> handler ! rdrop 
   [ has-floats [IF] ]
       rdrop
   [ [THEN] ]
   [ has-locals [IF] ]
       rdrop
   [ [THEN] ]
       0 ;
   
 : throw ( y1 .. ym error/0 -- y1 .. ym / z1 .. zn error ) \ exception  : throw ( y1 .. ym error/0 -- y1 .. ym / z1 .. zn error ) \ exception
     ?DUP IF      ?DUP IF
Line 238  has-locals [IF] Line 245  has-locals [IF]
 \ ?stack                                               23feb93py  \ ?stack                                               23feb93py
   
 : ?stack ( ?? -- ?? ) \ gforth  : ?stack ( ?? -- ?? ) \ gforth
     sp@ s0 @ u> IF    -4 throw  THEN      sp@ sp0 @ u> IF    -4 throw  THEN
 [ has-floats [IF] ]  [ has-floats [IF] ]
     fp@ f0 @ u> IF  -&45 throw  THEN      fp@ fp0 @ u> IF  -&45 throw  THEN
 [ [THEN] ]  [ [THEN] ]
 ;  ;
 \ ?stack should be code -- it touches an empty stack!  \ ?stack should be code -- it touches an empty stack!
Line 248  has-locals [IF] Line 255  has-locals [IF]
 \ DEPTH                                                 9may93jaw  \ DEPTH                                                 9may93jaw
   
 : depth ( -- +n ) \ core  : depth ( -- +n ) \ core
     sp@ s0 @ swap - cell / ;      sp@ sp0 @ swap - cell / ;
 : clearstack ( ... -- )  : clearstack ( ... -- )
     s0 @ sp! ;      sp0 @ sp! ;
   
 \ Strings                                                22feb93py  \ Strings                                                22feb93py
   

Removed from v.1.2  
changed lines
  Added in v.1.3


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