haskal
/
utop
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

add a `#pwd` directive 

Closes #149
This commit is contained in:
Jeremie Dimino 2015-11-23 12:48:27 +00:00
parent b37ead142a
commit e608977856
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/lib/uTop.cppo.ml
View File

@ -618,6 +618,11 @@ For a complete description of utop, look at the utop(1) manual page."));
macro; macro;
flush stdout)) flush stdout))
let () =
Hashtbl.add Toploop.directive_table "pwd"
(Toploop.Directive_none
(fun () -> print_endline (Sys.getcwd ())))
(* +-----------------------------------------------------------------+ (* +-----------------------------------------------------------------+
| Camlp4 | | Camlp4 |
+-----------------------------------------------------------------+ *) +-----------------------------------------------------------------+ *)