inline metacalls

2022-07-12 22:39:50 -06:00
parent c7e1f5d568
commit 1ffbf63d20
44 changed files with 2952 additions and 1414 deletions
--- a/src/lib/terms.pl
+++ b/src/lib/terms.pl
@@ -4,8 +4,8 @@

 numbervars(Term, N0, N) :-
   catch(internal_numbervars(Term, N0, N),
-	 error(E,Ctx),
-	 ( ( var(Ctx) -> Ctx = numbervars/3 ; true ), throw(error(E,Ctx) ) ) ).
+	     error(E,Ctx),
+	     ( ( var(Ctx) -> Ctx = numbervars/3 ; true ), throw(error(E,Ctx) ) ) ).

 internal_numbervars(Term, N0, N) :-
   must_be(integer, N0),