From bd4fc32bace9ee9727243ddf59f0066d5aa5e0a4 Mon Sep 17 00:00:00 2001
From: lemon <lsof@mailbox.org>
Date: Mon, 16 Jun 2025 11:58:13 +0200
Subject: repl: put last value in _

---
 repl.c | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'repl.c')

diff --git a/repl.c b/repl.c
index bf1e41e..7324b2f 100644
--- a/repl.c
+++ b/repl.c
@@ -75,12 +75,15 @@ main(int argc, char **argv) {
         using_history();
         CHECK(pez_pushglobal(cx, "printf"));
 
+        CHECK(pez_pushvoid(cx) && pez_setglobal(cx, "_"));
         while ((src = readline("> "))) {
             add_history(src);
             if (!pez_eval_str(cx, "<repl>", src)) {
                 fprintf(stderr, "error: %s\n", pez_geterr(cx));
             } else {
                 assert(pez_top(cx) == 2);
+                CHECK(pez_push(cx, -1));
+                CHECK(pez_setglobal(cx, "_"));
                 CHECK(printtop(cx));
                 printf("\n");
             }
-- 
cgit v1.2.3