Skip to content

Commit

Permalink
impletements the usage: metta [-h] [--version | MeTTa script] functio…
Browse files Browse the repository at this point in the history
…ns so we can also do trueagi-io/hyperon-experimental#803
  • Loading branch information
TeamSPoon committed Nov 21, 2024
1 parent 03a197b commit 3519359
Showing 1 changed file with 4 additions and 0 deletions.
4 changes: 4 additions & 0 deletions .Attic/metta_lang/metta_eval.pl
Original file line number Diff line number Diff line change
Expand Up @@ -412,6 +412,10 @@
ignore(Type=RetType),
eval_args(Eq,Type,Depth,Self,X, Res).

% simple version of Minimal MeTTa's `metta` function
eval_20(Eq,_Maybe_TODO_RetType,Depth,Self,['metta',Eval,RetType,Other],Result):-!,
into_space(Depth,Self,Other,Space),
eval_args(Eq,RetType,Depth,Space,Eval,Result).


/* Function takes list of atoms (first argument), variable (second argument) and filter predicate (third argument) and returns list with items which passed filter.
Expand Down

0 comments on commit 3519359

Please sign in to comment.