pebblisp/src/examples/repl.pbl

#!/usr/bin/pl
(def repl (fn () (
(prn "pebblisp::> ")
(def input (inp))
(if (= input "q") () (
;(switch input (
; ("clear" (fn () (sys "clear")))
;))
 
(if (= input "") () (
(if (= input "clear") (sys "clear") (
(def ret (eval input))
(if (iserr ret) (prn "X => ") (prn "Ok => "))
(prnl ret)
(prn "")))))
(repl)
))
)))
 
(repl)