Fix remainder handling.
authorDanny Milosavljevic <dannym@scratchpost.org>
Fri, 5 Jul 2019 13:52:04 +0000 (15:52 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Fri, 5 Jul 2019 13:52:04 +0000 (15:52 +0200)
* mes/module/mes/scm.mes (number->string): Fix remainder handling.
* build-aux/check-mescc.sh (XFAIL_TESTS): Remove
lib/tests/scaffold/60-math.c.

build-aux/check-mescc.sh
mes/module/mes/scm.mes

index 4eca931453deaff2e532f3445e14ed9e5f2138b4..522ed775566ddcb7a6f5bfc54f4943c24b49464c 100755 (executable)
@@ -234,7 +234,6 @@ lib/tests/scaffold/91-goto-array.c
 
     if test $mes_cpu = x86; then
         XFAIL_TESTS="$XFAIL_TESTS
-lib/tests/scaffold/60-math.c
 "
     fi
 
index 327750b917fb48a02c0323a291de1e1e739d3e5e..4b4f4c9466b6978852235732a472baf9425e33f4 100644 (file)
   (let* ((radix (if (null? rest) 10 (car rest)))
          (sign (if (< n 0) '(#\-) '())))
     (let loop ((n (abs n)) (lst '()))
-      (let* ((i (remainder n radix))
+      (let* ((i (abs (remainder n radix)))
              (lst (cons (integer->char (+ i (if (< i 10) (char->integer #\0)
                                                 (- (char->integer #\a) 10)))) lst))
              (n (quotient n radix)))