From da45c7049c8ce1338a7e590b423f15af488f4a01 Mon Sep 17 00:00:00 2001 From: Simon Brooke Date: Wed, 2 Apr 2014 21:20:48 +0100 Subject: [PATCH] Fix small bugs --- src/testgen/core.clj | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/testgen/core.clj b/src/testgen/core.clj index 005c7b3..f7f8138 100644 --- a/src/testgen/core.clj +++ b/src/testgen/core.clj @@ -12,7 +12,7 @@ (vector? arg) (map? arg)))) -(def generic-args nil () true "test" :test 0 Integer/MAX_VALUE 0.0001 -0.0001) +(def generic-args '(nil () true "test" :test 0 Integer/MAX_VALUE 0.0001 -0.0001)) (defn find-interesting-args [sexpr] "Find things in sexpr which would be interesting if passed as arguments to it" @@ -26,7 +26,7 @@ #(cond (number? %) (list % (inc %) (dec %)) true %) - (find-interesting-args sexpr)))) + (find-interesting-args sexpr))))) (defn testgen [fndef] (cond (= (first fndef) 'defn)