Permalink
Browse files

Removing some cruft from the parser and bringing signatures test back…

… to life.
  • Loading branch information...
1 parent efe7caf commit eb312c77ecbd6fd1cbd101bd96732ab9269c1443 @allertonm committed Feb 8, 2010
Showing with 2 additions and 3 deletions.
  1. +0 −1 Core/src/clojure/couverjure/parser.clj
  2. +2 −2 Core/test/clojure/test_signatures.clj
@@ -45,7 +45,6 @@
[first last]
(set (map char (range (int first) (inc (int last))))))
-(def not-matched [nil nil])
(defn in-set
"Returns a parser that matches a character from the given set"
([char-set transform]
@@ -78,7 +78,7 @@
(defn test-all-method-sigs [class]
(let [out-count (LongByReference.)
- method-list-ptr (.class_copyMethodList objc-runtime class out-count)
+ method-list-ptr (.class_copyMethodList foundation class out-count)
method-count (.getValue out-count)
method-list (seq (.getPointerArray method-list-ptr 0 method-count))]
(println "out-count " method-count " " (count method-list))
@@ -87,7 +87,7 @@
(filter (fn [[encoding, result]] (not (empty? (second result))))
(for [method method-list]
- (let [encoding (.method_getTypeEncoding objc-runtime method)]
+ (let [encoding (.method_getTypeEncoding foundation method)]
(try
[encoding, (method-signature-encoding encoding)]
(catch Throwable e [encoding, [nil, (.toString e)]]))

0 comments on commit eb312c7

Please sign in to comment.