Remove dead code
This commit is contained in:
parent
8d38cd5886
commit
cade2e781f
|
@ -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])
|
|
@ -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]))
|
|
@ -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))))
|
|
@ -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"]
|
Loading…
Reference in New Issue
Block a user