From ea50a906b038cbfe22e2074f4365ae0f67d84f6f Mon Sep 17 00:00:00 2001 From: William Byrd Date: Wed, 14 Mar 2012 15:27:02 -0400 Subject: [PATCH] moved miniKanren.scm and removed an extra space --- cKanren/ck.scm | 2 +- cKanren/miniKanren.scm => miniKanren.scm | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) rename cKanren/miniKanren.scm => miniKanren.scm (99%) diff --git a/cKanren/ck.scm b/cKanren/ck.scm index 8ec757d..2241274 100644 --- a/cKanren/ck.scm +++ b/cKanren/ck.scm @@ -12,7 +12,7 @@ lhs rhs walk walk* var? lambdag@ mzerog unitg onceo conde conda condu ifa ifu project fresh :) - (import (rnrs) (cKanren mk) + (import (rnrs) (cKanren mk) (only (chezscheme) make-parameter)) ;; ---HELPERS------------------------------------------------------ diff --git a/cKanren/miniKanren.scm b/miniKanren.scm similarity index 99% rename from cKanren/miniKanren.scm rename to miniKanren.scm index f960aad..0c41851 100644 --- a/cKanren/miniKanren.scm +++ b/miniKanren.scm @@ -1,7 +1,7 @@ ;; In order to use "basic" miniKanren -(load "ck.scm") -(load "tree-unify.scm") +(load "cKanren/ck.scm") +(load "cKanren/tree-unify.scm") (define-syntax run1 (syntax-rules () ((_ (x) g0 g ...) (run 1 (x) g0 g ...)))) (define-syntax run2 (syntax-rules () ((_ (x) g0 g ...) (run 2 (x) g0 g ...))))