simplifying quads and rdfsurfaces

RELEASE

@@ -1,5 +1,6 @@
                                   EYE release
 
+v10.24.21 (2024-10-12) simplifying quads and rdfsurfaces
 v10.24.20 (2024-10-11) preparing rdf12 support
 v10.24.19 (2024-10-11) fixing issue with rdfsurfaces in cgs (closed graph semantics)
 v10.24.18 (2024-10-10) fixing graph:statement for cgs (closed graph semantics)

VERSION

@@ -1 +1 @@
-10.24.20
+10.24.21

eye.pl

@@ -22,7 +22,7 @@
 :- catch(use_module(library(process)), _, true).
 :- catch(use_module(library(http/http_open)), _, true).
 
-version_info('EYE v10.24.20 (2024-10-11)').
+version_info('EYE v10.24.21 (2024-10-12)').
 
 license_info('MIT License
 
@@ -5351,10 +5351,7 @@
 
     % quads
     (   quad(triple(_, _, _), _)
-    ->  retractall(flag(quads)),
-        assertz(flag(quads)),
-
-        % create trig graphs
+    ->  % create trig graphs
         (   graphid(G),
             findall(C,
                 (   quad(triple(S, P, O), G),
@@ -5628,7 +5625,6 @@
                 makevars([T, S], [Tu, Su], beta(U)),
                 C = ':-'(Tu, Su),
                 copy_term_nat(C, CC),
-                labelvars(CC, 0, _, avar),
                 (   \+cc(CC)
                 ->  assertz(cc(CC)),
                     assertz(C),
@@ -5663,7 +5659,6 @@
                 makevars([M, S], [Mu, Su], beta(U)),
                 C = ':-'(Mu, Su),
                 copy_term_nat(C, CC),
-                labelvars(CC, 0, _, avar),
                 (   \+cc(CC)
                 ->  assertz(cc(CC)),
                     assertz(C),