--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/root-hooks.scm Thu Mar 31 01:25:02 2005 +1200
@@ -0,0 +1,57 @@
+;; This file is included with a local macro definition for def
+;; in kernel.scm.
+
+(def (*nil* Nil)
+ (*no-role* NoRole)
+
+ (*traits-method* #f)
+ (*method* Method)
+
+ (*traits-traits* Traits)
+
+ (*traits-root* #f)
+ (*root* Root)
+
+ (*traits-oddball* #f)
+ (*traits-derivable* #f)
+ (*traits-cloneable* #f)
+
+ (*oddball* Oddball)
+
+ (*derivable* Derivable)
+ (*cloneable* Cloneable)
+
+ (*traits-number* #f)
+ (*traits-character* #f)
+ (*traits-boolean* #f)
+ (*traits-symbol* #f)
+ (*traits-tuple* #f)
+ (*traits-pair* #f)
+ (*traits-string* #f)
+
+ (*traits-socket* #f)
+ (*traits-sdl-surface* #f)
+ (*traits-sdl-event* #f)
+ (*traits-ttf-font* #f)
+
+ (*true* True)
+ (*false* False)
+
+ (*tuple* Tuple)
+ (*string* String)
+ (*symbol* Symbol)
+ (*number* Number)
+ (*pair* Pair)
+
+ (*traits-block* #f)
+ (*block* Block)
+
+ ;; Language-specific -----------
+ (*traits-cell* #f)
+ (*cell* Cell)
+ (*traits-location* #f)
+ (*location* Location)
+ (*boot-block* BootBlock)
+ (*globals* Globals)
+ ;; -----------------------------
+)