[jackhill/mal.git] / picolisp / step0_repl.l

(de load-relative (Path)
   (load (pack (car (file)) Path)) )

(load-relative "readline.l")

(de READ (String)
   String)

(de EVAL (Ast)
   Ast)

(de PRINT (Ast)
   Ast)

(de rep (String)
   (PRINT (EVAL (READ String))) )

(load-history ".mal_history")

(use Eof
   (until Eof
      (let Input (readline "user> ")
         (if (=0 Input)
            (setq Eof T)
            (prinl (rep Input)) ) ) ) )

(prinl)
(bye)
Commit	Line	Data
42f304e8 VS	1	(de load-relative (Path)
	2	(load (pack (car (file)) Path)) )
	3
	4	(load-relative "readline.l")
	5
	6	(de READ (String)
	7	String)
	8
	9	(de EVAL (Ast)
	10	Ast)
	11
	12	(de PRINT (Ast)
	13	Ast)
	14
	15	(de rep (String)
	16	(PRINT (EVAL (READ String))) )
	17
	18	(load-history ".mal_history")
	19
ed976bf7 VS	20	(use Eof
	21	(until Eof
	22	(let Input (readline "user> ")
	23	(if (=0 Input)
	24	(setq Eof T)
	25	(prinl (rep Input)) ) ) ) )
42f304e8 VS	26
	27	(prinl)
	28	(bye)