Properly compare numbers

Julien LepillerSun Apr 05 16:21:42+0200 2020

b27dace

Properly compare numbers

rdf/entailment/d.scm

138138 
                  (and lang2 (string-downcase lang2)))
139139 
          (lexical1? l1)
140140 
          (lexical2? l2)
141-
          (equal? (lexical->value1 l1) (lexical->value2 l2))))
141+
          (if (number? (lexical->value1 l1))
142+
              (= (lexical->value1 l1) (lexical->value2 l2))
143+
              (equal? (lexical->value1 l1) (lexical->value2 l2)))))
142144 
    (_ (equal? n1 n2))))
143145 
144146 
(define (validate-mapping mapping g1 g2)