shithub: martian9

ref: 778e0a846e76d2118f2917637eef1b7580331727
dir: /mars9.ml/

View raw version 
(*
  Martian Scheme9
  Copyright 2020, McKay Marston

  This is a project for me to
    1) Get more familiar with OCaml.
    2) Try to provide a natively supported scheme for Plan9.

  It is heavily inspired by s9fes (http://www.t3x.org/s9fes), and the 
  make a lisp project (https://github.com/kanaka/mal)
 *)
let nameplate = "Martian Scheme9 v0.1"

let read str = str
let eval ast any = ast
let print exp = exp
let rep str = print (eval (read str) "")

let rec main =
  try
    print_endline nameplate;
    while true do
      print_string "m9> ";
      print_endline (rep (read_line ()));
    done
  with End_of_file -> ()