Removing some of planet

collects/datalog/tests/examples/ancestor.rkt

@@ -1,4 +1,4 @@
-#lang planet jaymccarthy/datalog
+#lang eudatalog
 % Equality test
 ancestor(A, B) :-
     parent(A, B).

collects/datalog/tests/examples/bidipath.rkt

@@ -1,4 +1,4 @@
-#lang planet jaymccarthy/datalog
+#lang datalog
 % path test from Chen & Warren
 edge(a, b). edge(b, c). edge(c, d). edge(d, a).
 path(X, Y) :- edge(X, Y).

collects/datalog/tests/examples/laps.rkt

@@ -1,4 +1,4 @@
-#lang planet jaymccarthy/datalog
+#lang datalog
 % Laps Test
 contains(ca, store, rams_couch, rams).
 contains(rams, fetch, rams_couch, will).

collects/datalog/tests/examples/long.rkt

@@ -1,4 +1,4 @@
-#lang planet jaymccarthy/datalog
+#lang datalog
 abcdefghi(z123456789,
 z1234567890123456789,
 z123456789012345678901234567890123456789,

collects/datalog/tests/examples/path.rkt

@@ -1,4 +1,4 @@
-#lang planet jaymccarthy/datalog
+#lang datalog
 % path test from Chen & Warren
 edge(a, b). edge(b, c). edge(c, d). edge(d, a).
 path(X, Y) :- edge(X, Y).

collects/datalog/tests/examples/pq.rkt

@@ -1,4 +1,4 @@
-#lang planet jaymccarthy/datalog
+#lang datalog
 % p q test from Chen & Warren
 q(X) :- p(X).
 q(a).

collects/datalog/tests/examples/revpath.rkt

@@ -1,4 +1,4 @@
-#lang planet jaymccarthy/datalog
+#lang datalog
 % path test from Chen & Warren
 edge(a, b). edge(b, c). edge(c, d). edge(d, a).
 path(X, Y) :- edge(X, Y).

collects/datalog/tests/examples/says.rkt

@@ -1,4 +1,4 @@
-#lang planet jaymccarthy/datalog
+#lang datalog
 tpme(tpme1).
 ms(m1,'TPME',tpme1,ek,tp).
 says(TPME,M) :- tpme(TPME),ms(M,'TPME',TPME,A,B).

collects/datalog/tests/examples/true.rkt

@@ -1,3 +1,3 @@
-#lang planet jaymccarthy/datalog
+#lang datalog
 true.
 true?

collects/datalog/tool/tool.rkt

@@ -91,9 +91,9 @@
         (define/public (get-language-numbers) (list 1000 42))
         (define/public (get-teachpack-names) null)
         (define/public (on-execute settings run-in-user-thread)
-          (let ([module-forms `(planet ,(this-package-version-symbol drracket/module-forms))]
-                [runtime `(planet ,(this-package-version-symbol eval))]
-                [lang `(planet ,(this-package-version-symbol lang/lang))])
+          (let ([module-forms `datalog/tool/module-forms]
+                [runtime `datalog/eval]
+                [lang `datalog/lang/lang])
             (dynamic-require module-forms #f)
             (dynamic-require runtime #f)
             (dynamic-require lang #f)