Mercurial > hg > reactive

changeset 10:33c1cac37be1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
alarm_at/3 goal_expands to alarm_at/4 if alarm_at/3 not defined.
author samer
date Wed, 22 Feb 2012 21:48:11 +0000
parents 8300e1fb8952
children 87c09da8b8ec
files qutils.pl
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/qutils.pl	Wed Feb 22 17:34:06 2012 +0000
+++ b/qutils.pl	Wed Feb 22 21:48:11 2012 +0000
@@ -20,8 +20,8 @@
 
 % Older versions of SWI do not have alarm_at/3
 :- if(\+current_predicate(alarm_at/3)).
-:- writeln('% compiling alarm_at/3.').
-alarm_at(A,B,C) :- alarm_at(A,B,C,[]).
+:- writeln('% Expanding alarm_at/3 to alarm_at/4.').
+user:goal_expansion(alarm_at(A,B,C), alarm_at(A,B,C,[])).
 :- endif.
 
 % Older versions of SWI do not have thread_get_message/3