blob: d09d5ba4c2edc675acbb7b1c8aa2c7764bd0df7c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
#!/usr/bin/env racket
#lang racket
(require "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)
|
