mirror of
https://github.com/kanaka/mal.git
synced 2024-09-20 10:07:45 +03:00
f522319598
- Some additioanl tests. - Split step9 tests into optional but self-hosting requirements (metadata on functions) and other optional (conj, metadata on collections).
48 lines
1.2 KiB
Racket
48 lines
1.2 KiB
Racket
#lang racket
|
|
|
|
(provide Env%)
|
|
|
|
(require "types.rkt")
|
|
|
|
(define Env%
|
|
(class object%
|
|
(init outer binds exprs)
|
|
(super-new)
|
|
(define _outer outer)
|
|
(define _binds (_to_list binds))
|
|
(define _exprs (_to_list exprs))
|
|
(define data (make-hash))
|
|
(let ([vargs (member '& _binds)])
|
|
(if vargs
|
|
(begin
|
|
(map (lambda (b e) (hash-set! data b e))
|
|
(drop-right _binds 2)
|
|
(take _exprs (- (length _binds) 2)))
|
|
(hash-set! data
|
|
(last _binds)
|
|
(drop _exprs (- (length _binds) 2))))
|
|
(map (lambda (b e) (hash-set! data b e))
|
|
_binds
|
|
_exprs)))
|
|
|
|
(define/public (set k v)
|
|
(hash-set! data k v)
|
|
v)
|
|
(define/public (find k)
|
|
(cond
|
|
[(hash-has-key? data k) this]
|
|
[(not (null? _outer)) (send _outer find k)]
|
|
[else null]))
|
|
(define/public (_get k)
|
|
(hash-ref data k))
|
|
(define/public (get k)
|
|
(let ([e (find k)])
|
|
(if (null? e)
|
|
(raise (string-append "'"
|
|
(symbol->string k)
|
|
"' not found"))
|
|
(send e _get k))))))
|
|
|
|
|
|
|