gforth/kernel/io.fs - diff

Return to io.fs CVS log

Up to [gforth] / gforth / kernel

Diff for /gforth/kernel/io.fs between versions 1.1 and 1.2

-version 1.1, 1997/05/21 20:40:15
+version 1.2, 1997/07/06 16:09:55
  Line 18
  \ along with this program; if not, write to the Free Software
  \ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+ \ Output                                               13feb93py
+ has-os [IF]
+Value outfile-id ( -- file-id ) \ gforth
+ : (type) ( c-addr u -- ) \ gforth
+     outfile-id write-file drop \ !! use ?DUP-IF THROW ENDIF instead of DROP ?
+ ;
+ : (emit) ( c -- ) \ gforth
+     outfile-id emit-file drop \ !! use ?DUP-IF THROW ENDIF instead of DROP ?
+ ;
+ [THEN]
+ Defer type ( c-addr u -- ) \ core
+ ' (type) IS Type
+ Defer emit ( c -- ) \ core
+ ' (Emit) IS Emit
+ Defer key ( -- c ) \ core
+ ' (key) IS key
+ : (.")     "lit count type ;
+ : (S")     "lit count ;
  \ Input                                                13feb93py
 constant #bell ( -- c ) \ gforth
- Line 59  hex
+ Line 85  hex
  [THEN]
- \ Output                                               13feb93py
- has-os [IF]
-Value outfile-id ( -- file-id ) \ gforth
- : (type) ( c-addr u -- ) \ gforth
-     outfile-id write-file drop \ !! use ?DUP-IF THROW ENDIF instead of DROP ?
- ;
- : (emit) ( c -- ) \ gforth
-     outfile-id emit-file drop \ !! use ?DUP-IF THROW ENDIF instead of DROP ?
- ;
- [THEN]
- Defer type ( c-addr u -- ) \ core
- ' (type) IS Type
- Defer emit ( c -- ) \ core
- ' (Emit) IS Emit
- Defer key ( -- c ) \ core
- ' (key) IS key
- : (.")     "lit count type ;
- : (S")     "lit count ;

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

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