Changeset 259 for trunk/thune/mkboot.t

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/mkboot.t (modified) (1 diff)

trunk/thune/mkboot.t

@@ -197 +197 @@
 
 [0 swap add] proc :to-dec
+
+[blk | ctx num word]
+[
+  [] context :ctx
+  blk [num word][
+    opcode! num word make word ctx set
+  ] each.set
+  ctx
+] func :make-opcodes    ; (block -- ctx)
 }
 :env-script