implemented 'case'

This commit is contained in:
2014-02-14 15:47:10 +00:00
parent 98cb15e5d9
commit 7c8a363631
5 changed files with 250 additions and 102 deletions

View File

@ -183,32 +183,6 @@ package H2.Scheme is
Set_Syntax
);
type Procedure_Code is (
Add_Procedure,
Callcc_Procedure,
Car_Procedure,
Cdr_Procedure,
Cons_Procedure,
EQ_Procedure,
GT_Procedure,
LT_Procedure,
GE_Procedure,
LE_Procedure,
Multiply_Procedure,
NullQ_Procedure,
NumberQ_Procedure,
ProcedureQ_Procedure,
Quotient_Procedure,
Remainder_Procedure,
Setcar_Procedure,
Setcdr_Procedure,
StringQ_Procedure,
Subtract_Procedure,
SymbolQ_Procedure
);
for Procedure_Code'Size use Object_Integer'Size;
type Object_Tag is (
Unknown_Object,
Cons_Object,