Changeset 510 for trunk/thune/boot.c

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/boot.c (modified) (2 diffs)

trunk/thune/boot.c

@@ -36 +36 @@
   "  opcode! 31 'verify  make :verify\n"
   "  opcode! 32 'forever make :forever\n"
+  "  opcode! 33 'loop    make :loop\n"
   "  int!/decimal! :number!\n"
   "  word!/set-word!/get-word!/lit-word! :any-word!\n"
@@ -65 +66 @@
   "]\n"
   "'loop proc :while  ;(block cond -- )\n"
-  "[\n"
-  "  int! verify\n"
-  "  [dup zero? ift break over do dec] forever\n"
-  "  drop drop\n"
-  "]\n"
-  "'loop proc :loop   ;(block count -- )\n"
   "[body  n number!  limit number!] [\n"
   "  n\n"