add missing trailing ? on SRFI 144 inequality ops

lib/srfi/144.sld

@@ -27,7 +27,7 @@
    fl-euler fl-e-euler fl-sin-1 fl-cos-1 fl-greatest fl-least
    fl-integer-exponent-zero fl-integer-exponent-nan fl-fast-+*
 
-   flonum flonum? fl= fl< fl> fl<= fl>= flodd? fleven?
+   flonum flonum? fl=? fl<? fl>? fl<=? fl>=? flodd? fleven?
    flunordered? flinteger? flzero? flpositive? flnegative?
 
    fl+ fl- fl* fl/ fl+* flmax flmin flabsdiff

lib/srfi/144/flonum.scm

@@ -1,9 +1,9 @@
 
-(define fl= =)
-(define fl< <)
-(define fl> >)
-(define fl<= <=)
-(define fl>= >=)
+(define fl=? =)
+(define fl<? <)
+(define fl>? >)
+(define fl<=? <=)
+(define fl>=? >=)
 (define flodd? odd?)
 (define fleven? even?)
 (define (flunordered? x y) (or (flnan? x) (flnan? y)))

lib/srfi/144/test.sld

@@ -89,7 +89,7 @@
       (test 24. (flgamma 5.))
       (call-with-values (lambda () (flloggamma 0.1))
         (lambda (res sign)
-          (test 64. res)
+          (test 2.252713 res)
           (test 1 sign)))
       (test 0.440050586 (flfirst-bessel 1 1.))
       (test -0.781212821 (flsecond-bessel 1 1.))

tests/lib-tests.scm

@@ -27,6 +27,7 @@
         (rename (srfi 133 test) (run-tests run-srfi-133-tests))
         (rename (srfi 134 test) (run-tests run-srfi-134-tests))
         (rename (srfi 139 test) (run-tests run-srfi-139-tests))
+        (rename (srfi 144 test) (run-tests run-srfi-144-tests))
         (rename (srfi 146 test) (run-tests run-srfi-146-tests))
         (rename (srfi 146 hash-test) (run-tests run-srfi-146-hash-tests))
         (rename (srfi 151 test) (run-tests run-srfi-151-tests))
@@ -95,6 +96,7 @@
 (run-srfi-133-tests)
 (run-srfi-134-tests)
 (run-srfi-139-tests)
+(run-srfi-144-tests)
 (run-srfi-146-tests)
 (run-srfi-146-hash-tests)
 (run-srfi-151-tests)