Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

.

  • Loading branch information...
commit eb4bbae55d2b1453566f8f1986f29944b8fe31b3 1 parent cf5ad3d
@richard-lyman authored
Showing with 5 additions and 9 deletions.
  1. +4 −8 project.clj
  2. +1 −1  src/com/lithinos/amotoen/core.clj
View
12 project.clj
@@ -1,12 +1,8 @@
(defproject com.lithinos/amotoen "0.1.0-SNAPSHOT"
:description "Amotoen is a Clojure library that supports PEG style definitions of grammars that can produce parsers."
- :license { :name "EPL-v1.0"
- :url "http://www.eclipse.org/legal/epl-v10.html"
- :distribution :repo
- :comments "same as Clojure"}
- :dependencies [ [org.clojure/clojure "1.2.0"]
- [org.clojure/clojure-contrib "1.2.0"]]
+ :url "http://www.lithinos.com/amotoen"
+ :license {:name "EPL-v1.0" :distribution :repo :comments "same as Clojure" :url "http://www.eclipse.org/legal/epl-v10.html"}
+ :dependencies [[org.clojure/clojure "1.3.0"]]
:jar-name "amotoen.jar"
:jar-exclusions [#"(errors|markdown|minimark|string_wrapper|utils|wrapper|csv|json|project).clj" #"maven"]
- :manifest {"Built-By" "\"Richard Lyman\" <richard.lyman@gmail.com>"}
- )
+ :manifest {"Built-By" "\"Richard Lyman\" <richard.lyman@gmail.com>"})
View
2  src/com/lithinos/amotoen/core.clj
@@ -41,7 +41,7 @@
(defn lpegs [t s] (reverse (into '() (cons t (seq s))))) ; This doesn't need to be fast, but shouldn't the following work? (list (cons t (seq s)))
(defn pegs [s] (vec (seq s)))
-(def *debug* (ref false))
+(def ^:dynamic *debug* (ref false))
(defn- debug [w & args] (when @*debug* (print (psdebug w)) (apply println args) (flush)))
(def #^{:private true} grammar-grammar {
Please sign in to comment.
Something went wrong with that request. Please try again.