Diff for /gforth/prims2x.fs between versions 1.69 and 1.70

version 1.69, 2001/01/19 21:07:05 version 1.70, 2001/01/20 20:17:39
Line 164  struct% Line 164  struct%
     cell%    field prim-effect-out-end      cell%    field prim-effect-out-end
 end-struct prim%  end-struct prim%
   
 create prim prim% %allot  : make-prim ( -- prim )
       prim% %alloc { p }
       s" " p prim-doc 2! s" " p prim-forth-code 2! s" " p prim-wordset 2!
       p ;
   
   0 value prim
   
 \ global vars  \ global vars
 variable c-line  variable c-line
Line 870  Variable c-flag Line 875  Variable c-flag
 (( ` = (( white ++ forth-ident )) ++ (( nl || eof ))  (( ` = (( white ++ forth-ident )) ++ (( nl || eof ))
 )) <- combined-primitive  )) <- combined-primitive
   
 (( {{ s" " prim prim-doc 2! s" " prim prim-forth-code 2! s" " prim prim-wordset 2!  (( {{ make-prim to prim
       line @ name-line ! filename 2@ name-filename 2!        line @ name-line ! filename 2@ name-filename 2!
       start }} forth-ident {{ end 2dup prim prim-name 2! prim prim-c-name 2! }}  white ++        start }} forth-ident {{ end 2dup prim prim-name 2! prim prim-c-name 2! }}  white ++
    (( simple-primitive || combined-primitive ))     (( simple-primitive || combined-primitive ))

Removed from v.1.69  
changed lines
  Added in v.1.70


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