[jackhill/mal.git] / crystal / step0_repl.cr

#! /usr/bin/env crystal run

require "./readline"

# Note:
# Employed downcase names because Crystal prohibits uppercase names for methods

def read(x)
    x
end

def eval(x)
    x
end

def print(x)
    x
end

def rep(x)
    read(eval(print(x)))
end

while line = my_readline("user> ")
    puts rep(line)
end
Commit	Line	Data
85c1b0c0	1	#! /usr/bin/env crystal run
	2
	3	require "./readline"
	4
	5	# Note:
	6	# Employed downcase names because Crystal prohibits uppercase names for methods
	7
	8	def read(x)
	9	x
	10	end
	11
	12	def eval(x)
	13	x
	14	end
	15
	16	def print(x)
	17	x
	18	end
	19
	20	def rep(x)
	21	read(eval(print(x)))
	22	end
	23
fdf28b76	24	while line = my_readline("user> ")
85c1b0c0	25	puts rep(line)
85c1b0c0	26	end