71 |
case scm_tc3_imm24: |
case scm_tc3_imm24: |
72 |
if (SCM_CHARP (x)) |
if (SCM_CHARP (x)) |
73 |
return scm_class_char; |
return scm_class_char; |
74 |
|
else if (SCM_BOOLP (x)) |
75 |
|
return scm_class_boolean; |
76 |
|
else if (SCM_NULLP (x)) |
77 |
|
return scm_class_null; |
78 |
else |
else |
79 |
{ |
return scm_class_unknown; |
|
switch (SCM_ISYMNUM (x)) |
|
|
{ |
|
|
case SCM_ISYMNUM (SCM_BOOL_F): |
|
|
case SCM_ISYMNUM (SCM_BOOL_T): |
|
|
return scm_class_boolean; |
|
|
case SCM_ISYMNUM (SCM_EOL): |
|
|
return scm_class_null; |
|
|
default: |
|
|
return scm_class_unknown; |
|
|
} |
|
|
} |
|
80 |
|
|
81 |
case scm_tc3_cons: |
case scm_tc3_cons: |
82 |
switch (SCM_TYP7 (x)) |
switch (SCM_TYP7 (x)) |