Changeset 408 for branches/thune/thread_safe/mkboot.t

Timestamp:

06/11/07 04:07:02 (18 months ago)

Author:

krobillard

Message:

Thune - Simplified macros with macro! datatype.

Files:

• branches/thune/thread_safe/mkboot.t (modified) (2 diffs)

branches/thune/thread_safe/mkboot.t

@@ -41 +41 @@
 :boot-script
 
-
 {
 logic! 1 make dup :yes :on
@@ -134 +133 @@
   none :os
   [] :devices
-  [
-    [
-      [word word!/lit-word! def] [
-        def: word: reader-macros last set
-      ] func :macro
-
-      [word word!/lit-word! sig block! body block!] [
-        sig  kernel-ops infuse
-        body kernel-ops infuse
-        func word: reader-macros last set
-      ] func :macrof
-
-      [n] [[n: 'add word! as] reduce] func :+
-      [n] [[n: 'sub word! as] reduce] func :-
-      [n] [[n: 'mul word! as] reduce] func :*
-      [n] [[n: 'div word! as] reduce] func :/
-    ] context
-  ] reduce :reader-macros
 ]
 context :script-env