swish/commit

Another attempt to fool xref

authorJan Wielemaker
Tue Oct 20 19:25:58 2015 +0200
committerJan Wielemaker
Tue Oct 20 19:25:58 2015 +0200
commitc00d9c0f3e0988402e9ad94613049b136cc4b2e6
treeb46c7dde141ce50438bcbebaa1dc2b6b7cd5d778
parent682122707fcaffbab13a2010bd684577dbecd24f
Diff style: patch stat
diff --git a/lib/swish/procps.pl b/lib/swish/procps.pl
index 85f6699..e31e824 100644
--- a/lib/swish/procps.pl
+++ b/lib/swish/procps.pl
@@ -94,13 +94,13 @@ stat_field_value(_, String, Number) :-
 
 :- if(current_predicate(sysconf/1)).
 term_expansion(clockticks(sysconf), Expansion) :-
-	(   Sysconf = sysconf(clk_tck(TicksPerSec)),
+	(   member(Sysconf, [sysconf(clk_tck(TicksPerSec))]),
 	    call(Sysconf)
 	->  Expansion = clockticks(TicksPerSec)
 	;   Expansion = clockticks(100)
 	).
 term_expansion(pagesize(sysconf), Expansion) :-
-	(   Sysconf = sysconf(pagesize(Bytes)),
+	(   member(Sysconf, [sysconf(pagesize(Bytes))]),
 	    call(Sysconf)
 	->  Expansion = pagesize(Bytes)
 	;   Expansion = pagesize(4096)