[BACK]Return to kernel.fs CVS log [TXT] [DIR] Up to [gforth] / gforth

Diff for /gforth/Attic/kernel.fs between versions 1.11 and 1.12

version 1.11, 1997/01/29 21:32:36 version 1.12, 1997/02/01 14:59:31
Line 572  Defer interpreter-notfound ( c-addr coun Line 572  Defer interpreter-notfound ( c-addr coun
 : SLiteral ( Compilation c-addr1 u ; run-time -- c-addr2 u ) \ string  : SLiteral ( Compilation c-addr1 u ; run-time -- c-addr2 u ) \ string
     postpone (S") here over char+ allot  place align ;      postpone (S") here over char+ allot  place align ;
                                              immediate restrict                                               immediate restrict
 : ( ( compilation 'ccc<close-paren>' -- ; run-time -- ) \ core,file     paren  : plain-( ( 'ccc<close-paren>' -- ; )
       [char] ) parse 2drop ;
   
   : file-( ( 'ccc<close-paren>' -- ; )
     BEGIN      BEGIN
         >in @ [char] ) parse nip >in @ rot - =          >in @
           [char] ) parse nip
           >in @ rot - = \ is there no delimter?
     WHILE      WHILE
         loadfile @ IF          refill 0=
             refill 0= abort" missing ')' in paren comment"          IF
               warnings @
               IF
                   ." warning: ')' missing" cr
               THEN
               EXIT
         THEN          THEN
     REPEAT ;                       immediate      REPEAT ;
   
   : ( ( compilation 'ccc<close-paren>' -- ; run-time -- ) \ core,file     paren
       loadfile @
       IF
           file-(
       ELSE
           plain-(
       THEN ; immediate
   
 : \ ( -- ) \ core-ext backslash  : \ ( -- ) \ core-ext backslash
     blk @      blk @
     IF      IF
Removed from v.1.11  
changed lines
  Added in v.1.12

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