Commits

Moritz Heidkamp committed 195f3c8

Rename number-parser to number-result-parser

  • Participants
  • Parent commits a784564

Comments (0)

Files changed (1)

File edn-impl.scm

         (convert (string-append ns "/" sym))
         (convert sym))))
 
-(define ((collection-result-parser tag) items)
-  (cons tag items))
-
-(define (number-parser str arbitrary-precision?)
+(define (number-result-parser str arbitrary-precision?)
   (if arbitrary-precision?
       (numbers-string->number str)
       (string->number str)))
 
+(define ((collection-result-parser tag) items)
+  (cons tag items))
+
 (define edn-parsers
   (make-parameter
    `((true    . ,(constantly #t))
      (char    . ,identity)
      (symbol  . ,(symbol-result-parser string->symbol))
      (keyword . ,(symbol-result-parser string->keyword))
-     (integer . ,number-parser)
-     (float   . ,number-parser)
+     (integer . ,number-result-parser)
+     (float   . ,number-result-parser)
      (list    . ,(collection-result-parser 'list))
      (vector  . ,(collection-result-parser 'vector))
      (map     . ,(collection-result-parser 'map))