diff --git a/g/e.c b/g/e.c index c96109e1c5..ae65ceb3b6 100644 --- a/g/e.c +++ b/g/e.c @@ -572,7 +572,7 @@ u3_ce_save(void) // Sync the patch files. // - // u3_ca_print_memory("sync: save", 4096 * pat_u->con_u->pgs_w); + u3_ca_print_memory("sync: save", 4096 * pat_u->con_u->pgs_w); _ce_patch_sync(pat_u); // Verify the patch - because why not? @@ -794,6 +794,12 @@ u3_ce_boot(c3_o nuu_o, c3_o bug_o, c3_c* cpu_c) mprotect(u3_Loom, (1 << (u3_cc_bits + 2)), PROT_READ); } + + /* If the images were empty, we are logically booting. + */ + if ( (0 == u3P.nor_u.pgs_w) && (0 == u3P.sou_u.pgs_w) ) { + nuu_o = u3_yes; + } } /* Construct or activate the allocator. diff --git a/g/m.c b/g/m.c index 07957fcbec..f1e5d41781 100644 --- a/g/m.c +++ b/g/m.c @@ -902,11 +902,7 @@ u3_cm_soft_esc(u3_noun sam) /* Fall back to the old road, leaving temporary memory intact. */ - u3_cm_fall(); - - /* Produce success, on the old road. - */ - pro = u3_ca_take(pro); + pro = u3_cm_love(pro); } else { /* Push the error back up to the calling context - not the run we diff --git a/j/1/lth.c b/j/1/lth.c index 43a2c45b92..c06d939ace 100644 --- a/j/1/lth.c +++ b/j/1/lth.c @@ -12,7 +12,7 @@ u3_atom b) { if ( u3_so(u3_co_is_cat(a)) && u3_so(u3_co_is_cat(b)) ) { - return u3_say(a <= b); + return u3_say(a < b); } else { mpz_t a_mp, b_mp; diff --git a/v/loop.c b/v/loop.c index 5ccb93f659..6ec8d498f9 100644 --- a/v/loop.c +++ b/v/loop.c @@ -172,7 +172,7 @@ _lo_init() u3_term_io_init(); u3_http_io_init(); u3_cttp_io_init(); - u3_save_io_init(); + // u3_save_io_init(); u3_batz_io_init(); } @@ -197,7 +197,7 @@ u3_lo_exit(void) u3_term_io_exit(); u3_http_io_exit(); u3_cttp_io_exit(); - u3_save_io_exit(); + // u3_save_io_exit(); u3_batz_io_exit(); } @@ -209,7 +209,7 @@ _lo_poll(void) u3_ames_io_poll(); u3_http_io_poll(); u3_term_io_poll(); - u3_save_io_poll(); + // u3_save_io_poll(); u3_unix_io_poll(); u3_batz_io_poll(); }