remove equality to make the program easier to read

(in consultation with Jay)
2014-10-02 20:14:07 -05:00 · 2014-10-02 20:14:07 -05:00 · 6f7a633f8b
commit 6f7a633f8b
parent eb2db158a8
1 changed files with 1 additions and 1 deletions
--- a/pkgs/plt-services/meta/new-web/www/index.rkt
+++ b/pkgs/plt-services/meta/new-web/www/index.rkt
@ -251,7 +251,7 @@
     @code{#lang datalog
           ancestor(A, B) :- parent(A, B).
           ancestor(A, B) :-
-             parent(A, C), D = C, ancestor(D, B).
+             parent(A, C), ancestor(C, B).
           parent(john, douglas).
           parent(bob, john).
           ancestor(A, B)?}