From b09cf8da0219576aeeea9fae4068d785e4739a88 Mon Sep 17 00:00:00 2001
From: "wojciech.meyer" <wojciech.meyer@gmail.com>
Date: Sat, 3 Mar 2012 20:47:51 +0100
Subject: [PATCH] remove byte compilation warnings

Ignore-this: 628353be0d3e1d11d84fdc89f9a7690d

darcs-hash:20120303194751-33bd9-5bb0c7c9e5e1312d87cd764c9cb29f48faa892aa
---
 src/top/utop.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/top/utop.el b/src/top/utop.el
index be94cd0..ee646ab 100644
--- a/src/top/utop.el
+++ b/src/top/utop.el
@@ -403,8 +403,8 @@ to add the newline character if it is not accepted).")
       ;; Highlight errors
       (let ((offsets (split-string argument "," t)))
         (while offsets
-          (let ((a (string-to-int (car offsets)))
-                (b (string-to-int (car (cdr offsets)))))
+          (let ((a (string-to-number (car offsets)))
+                (b (string-to-number (car (cdr offsets)))))
             (add-text-properties (+ utop-prompt-max a) (+ utop-prompt-max b) '(face utop-error))
             (setq offsets (cdr (cdr offsets))))))
       ;; Make everything read-only