tests/pidgin.slate

   1 (VM define: #Memory &builder: [C Module new]) enter.
   2
   3 addSynonymNamed: #Word of: UnsignedLongInt.
   4 Word export.
   5
   6 addSynonymNamed: #Bool of: UnsignedLongInt.
   7 Bool export.
   8
   9 define: #True -> 1 &type: Bool &export: True.
  10 define: #False -> 0 &type: Bool &export: True.
  11 define: #Nil -> 0 &type: Void pointer &export: True.
  12
  13 define: #Map &slots: {} &export: True.
  14
  15 define: #ObjectHeader &slots: {} &export: True.
  16
  17 define: #Object &export: True &slots:
  18   {#header -> ObjectHeader.
  19    #map -> Map pointer}.