r1/root-hooks.scm
author Tony Garnock-Jones <tonygarnockjones@gmail.com>
Wed, 16 Jan 2019 17:15:58 +0000
changeset 438 1fe179d53161
parent 223 646d45b098aa
permissions -rw-r--r--
Add missing primitive implementation for the plain interpreter.

;; 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)
     ;; -----------------------------
)