Репозиторий Sisyphus
Последнее обновление: 24 июня 2019 | Пакетов: 17678 | Посещений: 14173103
en ru br
Репозитории ALT
S:4.07.1-alt3
5.1: 3.10.2-alt3.1
4.1: 3.10.2-alt3
4.0: 3.09.3-alt0.1
3.0: 3.08.1-alt1
www.altlinux.org/Changes

Группа :: Разработка/ML
Пакет: ocaml

 Главная   Изменения   Спек   Патчи   Sources   Загрузить   Gear   Bugs and FR  Repocop 

Патч: ocaml-3.04+9-filename.patch
Скачать


diff -urN ocaml-old/stdlib/filename.ml ocaml/stdlib/filename.ml
--- ocaml-old/stdlib/filename.ml	Sun Apr 14 21:16:33 2002
+++ ocaml/stdlib/filename.ml	Sun Apr 14 21:27:59 2002
@@ -16,14 +16,14 @@
 let generic_quote quotequote s =
   let l = String.length s in
   let b = Buffer.create (l + 20) in
-  Buffer.add_char b '\'';
+(*  Buffer.add_char b '\''; *)
   for i = 0 to l - 1 do
     if s.[i] = '\''
     then Buffer.add_string b quotequote
     else Buffer.add_char b  s.[i]
   done;
-  Buffer.add_char b '\'';
-  Buffer.contents b
+(*  Buffer.add_char b '\''; *)
+  Buffer.contents b 
 
 module Unix = struct
   let current_dir_name = "."
 
дизайн и разработка: Vladimir Lettiev aka crux © 2004-2005, Andrew Avramenko aka liks © 2007-2008
текущий майнтейнер: Michael Shigorin