Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Tree: 6627e22274
Fetching contributors…

Cannot retrieve contributors at this time

24 lines (20 sloc) 0.479 kB
(use arc)
(= repl-eof-value (list 'eof))
(def repl ()
(on-err
(fn (c)
(prn "Error: " (details c))
(repl))
(fn ()
(disp "arc> ")
(let expr (read stdin repl-eof-value)
(if (in expr ':a repl-eof-value)
(prn)
(do (readline)
(let val (eval expr)
(write val)
(prn)
(= that val)
(= thatexpr expr)
(repl))))))))
(repl)
Jump to Line
Something went wrong with that request. Please try again.