lean2/tests/lean/loop2.lean

import Int.

(*
 function add_paren(code)
    return "(" .. "* " .. code .. " *" .. ")"
 end
 parse_lean_cmds(add_paren([[
     local env = get_environment()
     env:add_var("x", Const("Int"))
     print(env:find_object("x"))
  ]]))
 print("done")
*)
feat(frontends/lean): use lowercase commands, replace 'endscope' and 'endnamespace' with 'end' Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2014-01-05 12:05:08 -08:00			`import Int.`
refactor(builtin): only load the kernel and natural numbers by default Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2013-12-30 13:35:37 -08:00
feat(frontends/lean): use '(* ... )' instead of '(* ... **)' for script code blocks Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2014-01-05 10:32:47 -08:00			`(*`
feat(util/shared_mutex): add support for recursive lock at shared_mutex We need support for recursive locks. The main user of this class is the environment object. This commit adds a test that demonstrates that the shared_lock of the environment object may be recursively requested. Before this fix, the Lean was deadlocking in this example. Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2013-11-15 22:01:06 -08:00			`function add_paren(code)`
feat(frontends/lean): use '(* ... )' instead of '(* ... **)' for script code blocks Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2014-01-05 10:32:47 -08:00			`return "(" .. "* " .. code .. " *" .. ")"`
feat(util/shared_mutex): add support for recursive lock at shared_mutex We need support for recursive locks. The main user of this class is the environment object. This commit adds a test that demonstrates that the shared_lock of the environment object may be recursively requested. Before this fix, the Lean was deadlocking in this example. Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2013-11-15 22:01:06 -08:00			`end`
			`parse_lean_cmds(add_paren([[`
			`local env = get_environment()`
			`env:add_var("x", Const("Int"))`
			`print(env:find_object("x"))`
			`]]))`
			`print("done")`
feat(frontends/lean): use '(* ... )' instead of '(* ... **)' for script code blocks Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2014-01-05 10:32:47 -08:00			`*)`