Lisp print fix

This commit is contained in:
Benjamin Vedder 2022-02-05 01:45:03 +01:00
parent 24b076bdc4
commit c392c2b390
1 changed files with 1 additions and 1 deletions

View File

@ -68,7 +68,7 @@ static lbm_value ext_print(lbm_value *args, lbm_uint argn) {
lbm_array_header_t *array = (lbm_array_header_t *)lbm_car(t);
switch (array->elt_type){
case LBM_VAL_TYPE_CHAR:
commands_printf_lisp("%s", (char*)array + 8);
commands_printf_lisp("%s", (char*)array->data);
break;
default:
return lbm_enc_sym(SYM_NIL);