summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorWei Tang <i@null.tl>2015-09-09 12:26:26 +0800
committerWei Tang <i@null.tl>2015-09-09 12:26:26 +0800
commit554923db3ba8fc739b67892b32130660ac2c554e (patch)
tree42aa6faeaa25512997259ecfb261b8e9f2185d48
parent19cba1848b0f1df433dae7b4a901f97e6e4fb88f (diff)
downloadmm-554923db3ba8fc739b67892b32130660ac2c554e.tar.gz
mm-554923db3ba8fc739b67892b32130660ac2c554e.tar.bz2
Comment out not-running pattern recognition code
-rw-r--r--mm.rkt16
1 files changed, 8 insertions, 8 deletions
diff --git a/mm.rkt b/mm.rkt
index e90d533..2ad06bf 100644
--- a/mm.rkt
+++ b/mm.rkt
@@ -361,14 +361,14 @@
(runo* predicate pattern-assoc '() '(fresh) fresh-out s)
(selecto queries s ss))))
-(display
- (run 1 (patterns)
- (runo '() '(mother a b) patterns '())
- (runo '() '(mother b c) patterns '())
- (runo '() '(mother a c) patterns #f)
- (runo '() '(grandmother a c) patterns '())
- (runo '() '(grandmother a b) patterns #f)
- (runo '() '(grandmother b c) patterns #f)))
+;; (display
+;; (run 1 (patterns)
+;; (runo '() '(mother a b) patterns '())
+;; (runo '() '(mother b c) patterns '())
+;; (runo '() '(mother a c) patterns #f)
+;; (runo '() '(grandmother a c) patterns '())
+;; (runo '() '(grandmother a b) patterns #f)
+;; (runo '() '(grandmother b c) patterns #f)))
(test)