From fc9cf937965ded2af9b96c840d86688255ce46f0 Mon Sep 17 00:00:00 2001
From: Alex Shinn <alexshinn@gmail.com>
Date: Tue, 28 Dec 2021 08:19:05 +0900
Subject: [PATCH] =?UTF-8?q?type=20checks=20on=20identifier=3D=3F?=

---
 eval.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/eval.c b/eval.c
index 4edf21c3..1b441d2d 100644
--- a/eval.c
+++ b/eval.c
@@ -664,6 +664,8 @@ sexp sexp_strip_synclos (sexp ctx, sexp self, sexp_sint_t n, sexp x) {
 
 sexp sexp_identifier_eq_op (sexp ctx, sexp self, sexp_sint_t n, sexp e1, sexp id1, sexp e2, sexp id2) {
   sexp cell1, cell2;
+  sexp_assert_type(ctx, sexp_envp, SEXP_ENV, e1);
+  sexp_assert_type(ctx, sexp_envp, SEXP_ENV, e2);
   cell1 = sexp_env_cell(ctx, e1, id1, 0);
   cell2 = sexp_env_cell(ctx, e2, id2, 0);
   if (cell1 && (cell1 == cell2))