Skip to content

Commit

Permalink
Squashed 'lispBM/lispBM/' changes from c9034e4a..3cc45a57
Browse files Browse the repository at this point in the history
3cc45a57 remove left over printf

git-subtree-dir: lispBM/lispBM
git-subtree-split: 3cc45a579eda265e4622e371800ca1c345c73771
  • Loading branch information
vedderb committed Apr 14, 2023
1 parent 8897516 commit f84fb8e
Showing 1 changed file with 0 additions and 2 deletions.
2 changes: 0 additions & 2 deletions src/eval_cps.c
Original file line number Diff line number Diff line change
Expand Up @@ -2633,7 +2633,6 @@ static void read_finish(lbm_char_channel_t *str, eval_context_t *ctx) {
/* successfully finished reading an expression (CASE 3) */
ctx->app_cont = true;
} else if (ctx->K.sp > 4 && ctx->K.data[ctx->K.sp - 4] == READ_DONE) {
printf("read-eval done\n");
lbm_value env;
lbm_value s;
lbm_value sym;
Expand All @@ -2642,7 +2641,6 @@ static void read_finish(lbm_char_channel_t *str, eval_context_t *ctx) {
ctx->curr_exp = ctx->r;
ctx->app_cont = false;
} else if (ctx->K.sp > 7 && ctx->K.data[ctx->K.sp - 5] == READ_DONE) {
printf("read-program done\n");
/* successfully finished reading a program (CASE 2) */
ctx->r = ENC_SYM_CLOSEPAR;
ctx->app_cont = true;
Expand Down

0 comments on commit f84fb8e

Please sign in to comment.