Changeset 510 for trunk/thune/mkboot.t

Timestamp:

02/10/08 23:53:46 (9 months ago)

Author:

krobillard

Message:

'loop is now an opcode and can act as loop.to for integers.
File port! read now handles optional limit.
console.out now handles binary!.
Can now 'make an int! from first 4 bytes of a binary!
Added ur_initDecimal macro.
Added 'fcalc.
Removed word inc/dec.

Files:

• trunk/thune/mkboot.t (modified) (2 diffs)

trunk/thune/mkboot.t

@@ -37 +37 @@
   opcode! 31 'verify  make :verify
   opcode! 32 'forever make :forever
+  opcode! 33 'loop    make :loop
 
   int!/decimal! :number!
@@ -72 +73 @@
 ]
 'loop proc :while  ;(block cond -- )
-
-[
-  int! verify
-  [dup zero? ift break over do dec] forever
-  drop drop
-]
-'loop proc :loop   ;(block count -- )
 
 [body  n number!  limit number!] [