Remove dead code

This commit is contained in:
Jack Firth 2015-03-20 20:29:05 -07:00
parent 8d38cd5886
commit cade2e781f
4 changed files with 0 additions and 63 deletions

View File

@ -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])

View File

@ -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]))

View File

@ -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))))

View File

@ -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"]