
<SmallInteger> primitiveAdd: aNumber <SmallInteger>
                     ifFail: failBlock <FailBlock> ^<SmallInteger> =
  Internal { error = #(integer_overflow).
             name  = 'smiOopPrimitives::add' }


<Object> primitiveEqual: anObject <Object> ^<Boolean> =
  Internal { name  = 'smiOopPrimitives::equal' }

    <INTERNAL>  ::=  "Internal" "{" <ATTRIBUTE>* '}'
    <ATTRIBUTE> ::=  <NAME> "=" <LITERAL> .

  internal_primitive_map
        selector, address,
  
  






