simplifying log:ask

eyereasoner · Apr 10, 2024 · e2adc7a · e2adc7a
1 parent b932216
commit e2adc7a
Show file tree

Hide file tree

Showing 4 changed files with 6 additions and 7 deletions.
diff --git a/RELEASE b/RELEASE
@@ -1,5 +1,6 @@
                                   EYE release
 
+v10.2.8 (2024-04-11) simplifying log:ask
 v10.2.7 (2024-04-10) command line arg --trig is now triggering lingua
 v10.2.6 (2024-04-10) fixing log:ask by Jesse Wright
 v10.2.5 (2024-04-10) fixing log:ask tu use read/1

diff --git a/VERSION b/VERSION
@@ -1 +1 @@
-10.2.7
+10.2.8
diff --git a/eye.pl b/eye.pl
@@ -22,7 +22,7 @@
 :- catch(use_module(library(process)), _, true).
 :- catch(use_module(library(http/http_open)), _, true).
 
-version_info('EYE v10.2.7 (2024-04-10)').
+version_info('EYE v10.2.8 (2024-04-11)').
 
 license_info('MIT License
 
@@ -6752,15 +6752,13 @@
 :- if(current_prolog_flag(emscripten, true)).
 userInput(A, B) :-
     await(A, C),
-    term_string(C, D),
-    atom_string(E, D),
-    sub_atom(E, 1, _, 1, B).
+    term_to_atom(C, D),
+    sub_atom(D, 1, _, 1, B).
 :- else.
 userInput(A, B) :-
     writeln(A),
     read(C),
-    term_string(C, D),
-    atom_string(B, D).
+    term_to_atom(C, B).
 :- endif.
 
 '<http://www.w3.org/2000/10/swap/log#ask>'(X, Y) :-

diff --git a/eye.zip b/eye.zip