From cade2e781f13fb034487f352a3708f4ff3178f7e Mon Sep 17 00:00:00 2001
From: Jack Firth <jack.firth@mindjet.com>
Date: Fri, 20 Mar 2015 20:29:05 -0700
Subject: [PATCH] Remove dead code

---
 generic-syntax-expanders/example-my-cond.rkt | 23 --------------------
 generic-syntax-expanders/example.rkt         | 18 ---------------
 generic-syntax-expanders/example2.rkt        |  6 -----
 generic-syntax-expanders/package-name.scrbl  | 16 --------------
 4 files changed, 63 deletions(-)
 delete mode 100644 generic-syntax-expanders/example-my-cond.rkt
 delete mode 100644 generic-syntax-expanders/example.rkt
 delete mode 100644 generic-syntax-expanders/example2.rkt
 delete mode 100644 generic-syntax-expanders/package-name.scrbl

diff --git a/generic-syntax-expanders/example-my-cond.rkt b/generic-syntax-expanders/example-my-cond.rkt
deleted file mode 100644
index 5e9033e..0000000
--- a/generic-syntax-expanders/example-my-cond.rkt
+++ /dev/null
@@ -1,23 +0,0 @@
-#lang racket
-
-(require "main.rkt"
-         lenses
-         racket/match
-         (for-syntax syntax/parse))
-
-(define-expander-type cond)
-
-(define-syntax my-cond
-  (compose
-   (syntax-parser
-     [(_ cond-clause ...)
-      #'(cond cond-clause ...)])
-   expand-all-cond-expanders))
-
-(define-cond-expander $m
-  (syntax-parser
-    [(_ val pat body ...)
-     #'[(match val [pat #t] [_ #f]) (match val [pat body ...])]]))
-
-(my-cond [$m '(1 2 3) (list a b c) (+ a b c)]
-         [else 'bar])
\ No newline at end of file
diff --git a/generic-syntax-expanders/example.rkt b/generic-syntax-expanders/example.rkt
deleted file mode 100644
index de26c3d..0000000
--- a/generic-syntax-expanders/example.rkt
+++ /dev/null
@@ -1,18 +0,0 @@
-#lang racket
-
-(require "main.rkt"
-         (for-syntax syntax/parse))
-
-(provide foo-bar
-         foo-blah
-         (for-syntax expand-all-foo-expanders))
-
-(define-expander-type foo)
-
-(define-foo-expander foo-bar
-  (syntax-parser
-    [(_ a b c) #'b]))
-
-(define-foo-expander foo-blah
-  (syntax-parser
-    [(_ ...) #'blah]))
diff --git a/generic-syntax-expanders/example2.rkt b/generic-syntax-expanders/example2.rkt
deleted file mode 100644
index eef44f5..0000000
--- a/generic-syntax-expanders/example2.rkt
+++ /dev/null
@@ -1,6 +0,0 @@
-#lang racket
-
-(require "example.rkt")
-
-(begin-for-syntax
-  (displayln (expand-all-foo-expanders #'(foo-bar 1 (foo-bar 'a 'b 'c) 3))))
diff --git a/generic-syntax-expanders/package-name.scrbl b/generic-syntax-expanders/package-name.scrbl
deleted file mode 100644
index 8d71f3e..0000000
--- a/generic-syntax-expanders/package-name.scrbl
+++ /dev/null
@@ -1,16 +0,0 @@
-#lang scribble/manual
-
-@(require scribble/eval
-          (for-label package-name
-                     racket/base))
-
-@title{package-name}
-
-@(define the-eval (make-base-eval))
-@(the-eval '(require "main.rkt"))
-
-@defmodule[package-name]
-
-@author[@author+email["Jack Firth" "jackhfirth@gmail.com"]]
-
-source code: @url["https://github.com/jackfirth/package-name"]
\ No newline at end of file