Changeset 259 for trunk/thune/boot.c

Timestamp:

08/29/06 02:15:02 (2 years ago)

Author:

krobillard

Message:

Thune - Added 'make-opcodes. Fixed compile error on 64 bit systems.

Files:

• trunk/thune/boot.c (modified) (1 diff)

trunk/thune/boot.c

@@ -171 +171 @@
   "] proc :dirize    ; (path -- path)\n"
   "[0 swap add] proc :to-dec\n"
+  "[blk | ctx num word]\n"
+  "[\n"
+  "  [] context :ctx\n"
+  "  blk [num word][\n"
+  "    opcode! num word make word ctx set\n"
+  "  ] each.set\n"
+  "  ctx\n"
+  "] func :make-opcodes    ; (block -- ctx)\n"
 ;