mescc: Oops typo.
[mes.git] / module / mescc / M1.scm
index 03a44e0c6757923a5b7f398c6740579ae9130850..894c6cc91fc20f39c9b6a48f0a8d9349a0284841 100644 (file)
@@ -87,7 +87,7 @@
                                      (dec->hex (quotient o #x100000000))))
       (string-append "%" (number->string (dec->hex (modulo o #x100000000)))
                      " %" (if (< o 0) "-1"
-                              (number->string (dec->hex (quoteint o #x100000000)))))))
+                              (number->string (dec->hex (quotient o #x100000000)))))))
 
 (define* (display-join o #:optional (sep ""))
   (let loop ((o o))