From 14d4d3a5a2ffd39c3318fffd802601b992b5c79a Mon Sep 17 00:00:00 2001 From: Nick Briggs Date: Sat, 3 Oct 2020 14:47:54 -0700 Subject: [PATCH] Fix spelling error in variable name. No functional change. modified: src/unwind.c --- src/unwind.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/unwind.c b/src/unwind.c index a4d2bf7..875f3d7 100644 --- a/src/unwind.c +++ b/src/unwind.c @@ -112,14 +112,14 @@ LispPTR find_the_blip(LispPTR blip, LispPTR throwp, FX *unwinder) register LispPTR pc = NIL_PTR; LispPTR CATCH_RETURN_PC_ATOM = parse_atomstring("SI::*CATCH-RETURN-PC*"); - LispPTR CHATCH_RETURN_TO_ATOM = parse_atomstring("SI::*CATCH-RETURN-TO*"); + LispPTR CATCH_RETURN_TO_ATOM = parse_atomstring("SI::*CATCH-RETURN-TO*"); LispPTR CATCH_RETURN_FROM_ATOM = parse_atomstring("SI::*CATCH-RETURN-FROM*"); for (target = (LispPTR)unwinder; FX_INVALIDP(target); GETCLINK(target_addr)) { target_addr = (FX *)Addr68k_from_StkOffset(target); if (blip == *target_addr) { register LispPTR var_name_in_frame = variable_name_in_frame(target_addr, (FVPVAR << 8) + 1); - if (var_name_in_frame == CHATCH_RETURN_TO_ATOM) { + if (var_name_in_frame == CATCH_RETURN_TO_ATOM) { if (throwp) { pc = pvar_value_in_frame(target_addr, CATCH_RETURN_PC_ATOM); if