From 19022db77fc214627f619a09ab9738c7e9b78167 Mon Sep 17 00:00:00 2001
From: Alex Chapman <chapman.alex@gmail.com>
Date: Mon, 28 Apr 2008 14:30:49 +1000
Subject: [PATCH] deleting unfinished code from this branch
---
extra/new-graphs/new-graphs.factor | 21 ---------------------
1 file changed, 21 deletions(-)
delete mode 100644 extra/new-graphs/new-graphs.factor
diff --git a/extra/new-graphs/new-graphs.factor b/extra/new-graphs/new-graphs.factor
deleted file mode 100644
index b82ed8a22d..0000000000
--- a/extra/new-graphs/new-graphs.factor
+++ /dev/null
@@ -1,21 +0,0 @@
-! Copyright (C) 2008 Alex Chapman
-! See http://factorcode.org/license.txt for BSD license.
-USING: accessors assocs kernel new-slots sequences vectors ;
-IN: new-graphs
-
-TUPLE: graph edges ;
-TUPLE: digraph ;
-TUPLE: undigraph ;
-
-: <graph> ( -- graph )
- H{ } clone graph construct-boa H{ } clone over set-delegate ;
-
-: <digraph> ( -- graph )
- <graph> digraph construct-empty tuck set-delegate ;
-
-: <undigraph> ( -- graph )
- <graph> undigraph construct-empty tuck set-delegate ;
-
-GENERIC: add-vertex ( key value graph -- )
-M: graph add-vertex ( key value digraph -- ) set-at ;
-