From 3fab110bc5d8e5d050889c1eb301440d27b186b6 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Tue, 23 Oct 2018 11:39:51 -0700 Subject: [PATCH] find_binding_cell: no bindings in a null environment No need to fail an assert during test-library-loader neither. --- src/microcode/lookup.c | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/microcode/lookup.c b/src/microcode/lookup.c index 78fb18345..d4f2b6448 100644 --- a/src/microcode/lookup.c +++ b/src/microcode/lookup.c @@ -1204,6 +1204,8 @@ static SCHEME_OBJECT * find_binding_cell (SCHEME_OBJECT environment, SCHEME_OBJECT symbol, SCHEME_OBJECT * frame_ret) { + if (NULL_FRAME_P (environment)) + return (0); assert (ENVIRONMENT_P (environment)); SCHEME_OBJECT frame = environment; while (1) -- 2.25.1