[jackhill/mal.git] / racket / step0_repl.rkt

#!/usr/bin/env racket
#lang racket

(require "readline.rkt" "types.rkt")

;; read
(define (READ str)
  str)

;; eval
(define (EVAL ast env)
  ast)

;; print
(define (PRINT exp)
  exp)

;; repl
(define (rep str)
  (PRINT (EVAL (READ str) "")))

(define (repl-loop)
  (let ([line (readline "user> ")])
    (when (not (eq? nil line))
      (printf "~a~n" (rep line))
      (repl-loop))))
(repl-loop)
Commit	Line	Data
f5223195 JM	1	#!/usr/bin/env racket
	2	#lang racket
	3
10b07148	4	(require "readline.rkt" "types.rkt")
f5223195 JM	5
	6	;; read
	7	(define (READ str)
	8	str)
	9
	10	;; eval
	11	(define (EVAL ast env)
	12	ast)
	13
	14	;; print
	15	(define (PRINT exp)
	16	exp)
	17
	18	;; repl
	19	(define (rep str)
	20	(PRINT (EVAL (READ str) "")))
	21
	22	(define (repl-loop)
	23	(let ([line (readline "user> ")])
	24	(when (not (eq? nil line))
	25	(printf "~a~n" (rep line))
	26	(repl-loop))))
	27	(repl-loop)