X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Fscheme%2Fao_scheme_eval.c;h=907ecf0bacf3c593e3c7094af921df46a65dada6;hb=2efb997865ee46bf0e8d5145c95d051a7656222a;hp=9b3cf63e3d4cbe8a3104e70b3524a0f12b94ea72;hpb=2f8fce1cf6ce4bd12a836cc8ee15f4edbc95c95e;p=fw%2Faltos

diff --git a/src/scheme/ao_scheme_eval.c b/src/scheme/ao_scheme_eval.c
index 9b3cf63e..907ecf0b 100644
--- a/src/scheme/ao_scheme_eval.c
+++ b/src/scheme/ao_scheme_eval.c
@@ -108,13 +108,7 @@ ao_scheme_eval_sexpr(void)
 		DBGI("..frame "); DBG_POLY(ao_scheme_frame_poly(ao_scheme_frame_current)); DBG("\n");
 		ao_scheme_v = ao_scheme_atom_get(ao_scheme_v);
 		/* fall through */
-	case AO_SCHEME_BOOL:
-	case AO_SCHEME_INT:
-	case AO_SCHEME_BIGINT:
-	case AO_SCHEME_FLOAT:
-	case AO_SCHEME_STRING:
-	case AO_SCHEME_BUILTIN:
-	case AO_SCHEME_LAMBDA:
+	default:
 		ao_scheme_stack->state = eval_val;
 		break;
 	}