commit cade2e781f13fb034487f352a3708f4ff3178f7e
parent 8d38cd588607f6c1ef48ba895962b3685ead7ad9
Author: Jack Firth <jack.firth@mindjet.com>
Date: Fri, 20 Mar 2015 20:29:05 -0700
Remove dead code
Diffstat:
4 files changed, 0 insertions(+), 65 deletions(-)
diff --git a/generic-syntax-expanders/example-my-cond.rkt b/generic-syntax-expanders/example-my-cond.rkt
@@ -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
@@ -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
@@ -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
@@ -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
