From 0a22a288ee5c7e5cde8fdeda5c8b37eb0d3067f5 Mon Sep 17 00:00:00 2001
From: Patrick Hammer <patham9@gmail.com>
Date: Fri, 20 Feb 2026 01:14:34 +0100
Subject: [PATCH] Update: make argv handle number parsing too

---
 src/metta.pl | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/metta.pl b/src/metta.pl
index 9f74692..dc8fdfe 100644
--- a/src/metta.pl
+++ b/src/metta.pl
@@ -233,6 +233,7 @@
                                    'filter-atom'(T, Func, RT).
 
 %%% Prolog interop: %%%
+argv(K, Arg) :- current_prolog_flag(argv, Argv), nth0(K, Argv, A), ( atom_number(A, N) -> Arg = N ; Arg = A ).
 import_prolog_function(N, true) :- register_fun(N).
 'Predicate'([F|Args], Term) :- Term =.. [F|Args].
 callPredicate(G, true) :- call(G).
@@ -267,8 +268,6 @@
 %%% Registration: %%%
 :- dynamic fun/1.
 register_fun(N) :- (fun(N) -> true ; assertz(fun(N))).
-argv(K, Arg) :- current_prolog_flag(argv, Argv), nth0(K, Argv, Arg).
-
 :- maplist(register_fun, [superpose, empty, let, 'let*', '+','-','*','/', '%', min, max, 'change-state!', 'get-state', 'bind!',
                           '<','>','==', '!=', '=', '=?', '<=', '>=', and, or, xor, implies, not, sqrt, exp, log, cos, sin,
                           'first-from-pair', 'second-from-pair', 'car-atom', 'cdr-atom', 'unique-atom',