From 3dd1bd9c626dda5c4efba1ba7df830227fafc1f8 Mon Sep 17 00:00:00 2001 From: Benjamin Vedder Date: Tue, 10 May 2022 19:32:01 +0200 Subject: [PATCH] Squashed 'lispBM/lispBM/' changes from a136db86..94df9e23 94df9e23 a bit hacky but should be in the right direction 234f9782 unused arguments git-subtree-dir: lispBM/lispBM git-subtree-split: 94df9e23ceeeec9d6e28b0c84f4d96a7440244cf --- src/extensions.c | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/src/extensions.c b/src/extensions.c index 44b7ab29..ccc1d215 100644 --- a/src/extensions.c +++ b/src/extensions.c @@ -29,6 +29,8 @@ static lbm_uint ext_max = 0; static extension_fptr *extension_table = NULL; lbm_value lbm_extensions_default(lbm_value *args, lbm_uint argn) { + (void)args; + (void)argn; return lbm_enc_sym(SYM_EERROR); } @@ -57,13 +59,12 @@ extension_fptr lbm_get_extension(lbm_uint sym) { bool lbm_add_extension(char *sym_str, extension_fptr ext) { lbm_value symbol; - lbm_uint ext_ix = 0; if (lbm_get_symbol_by_name(sym_str, &symbol)) { // symbol already exists and may or may not be an extension. - if (lbm_is_extension(symbol)) { - ext_ix = lbm_dec_sym(symbol) - ext_offset; + if (lbm_is_extension(lbm_enc_sym(symbol))) { + ext_ix = symbol - ext_offset; } else return false; } else { int res = lbm_add_extension_symbol_const(sym_str, &symbol);