Sexpr tags fixed

This commit is contained in:
Dmitry Boulytchev 2020-08-25 16:09:43 +03:00
parent cbd715339f
commit ac853957ae
6 changed files with 22 additions and 3 deletions

View file

@ -511,7 +511,7 @@ module M = Map.Make (String)
(* Environment implementation *)
class env prg =
let chars = "_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ" in
let chars = "_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789'" in
let make_assoc l i = List.combine l (List.init (List.length l) (fun x -> x + i)) in
let rec assoc x = function [] -> raise Not_found | l :: ls -> try List.assoc x l with Not_found -> assoc x ls in
object (self)

View file

@ -1 +1 @@
let version = "Version 1.00, f08cd8396, Sat Aug 22 20:11:41 2020 +0300"
let version = "Version 1.00, cbd715339, Sun Aug 23 00:18:53 2020 +0300"