File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change 2222; OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
2323; SOFTWARE.
2424
25- (ns dev.atomicptr .mini
25+ (ns defold .mini
2626 (:require
2727 [clojure.string :as string]))
2828
7272 (loop [curr current
7373 chars []]
7474 (if (or (>= curr len)
75- (let [c (nth data curr)]
76- (or (= c \=) (= c \;) (= c \newline) (= c \]) (= c \[))))
75+ (let [c (nth data curr)]
76+ (or (= c \=) (= c \;) (= c \newline) (= c \]) (= c \[))))
7777 [(string/join chars) curr]
7878 (recur (inc curr) (conj chars (nth data curr)))))]
7979 [[:ident (string/trim ident-str) start] new-current]))]
9191 (parser-error " Unexpected end of file" pos)
9292
9393 (and (not (coll? token-type))
94- (not= toktype token-type))
94+ (not= toktype token-type))
9595 (parser-error (format " Expected token %s but found %s instead" token-type toktype) pos)
9696
9797 (and (coll? token-type)
98- (not (some #(= toktype %) token-type)))
98+ (not (some #(= toktype %) token-type)))
9999 (parser-error (format " Expected token %s but found %s instead" token-type toktype) pos)
100100
101101 :else
You can’t perform that action at this time.
0 commit comments