39 lines
2.1 KiB
Plaintext
39 lines
2.1 KiB
Plaintext
|
|
(set! current-env (vau de () de))
|
|
(set! quote (vau _ (x) x))
|
|
|
|
(add_grammar_rule (quote form) (quote ( "'" optional_WS form )) (vau de (_ _ f) (vector quote (eval f de))))
|
|
(add_grammar_rule 'form '( "\\[" optional_WS space_forms optional_WS "\\]" ) (vau de (_ _ fs _ _) (concat (vector vector) (eval fs de))))
|
|
|
|
(set! apply (vau de (f p ede) (eval (concat [(eval f de)] (eval p de)) (eval ede de))))
|
|
(set! let1 (vau de (s v b) (eval [[vau '_ [s] b] (eval v de)] de)))
|
|
(set! let (vau de (vs b) (cond (= (len vs) 0) (eval b de) true (apply let1 [(idx vs 0) (idx vs 1) [let (slice vs 2 -1) b]] de))))
|
|
(set! lambda (vau se (p b) (let1 f (eval [vau '_ p b] se) (vau de (& op) (apply f (map (vau dde (ip) (eval (eval ip dde) de)) op) se)))))
|
|
(set! fun (vau se (n p b) (eval [set! n [lambda p b]] se)))
|
|
(set! if (vau de (con than & else) (cond
|
|
(eval con de) (eval than de)
|
|
(> (len else) 0) (eval (idx else 0) de)
|
|
true nil)))
|
|
(fun do (& params) (cond
|
|
(= 0 (len params)) nil
|
|
true (idx params (- (len params) 1))))
|
|
|
|
(fun print_through (x) (let (_ (println x)) x))
|
|
(fun is_pair? (x) (and (vector? x) (> (len x) 0)))
|
|
|
|
(set! quasiquote (vau de (x)
|
|
(cond (is_pair? x)
|
|
(cond (and (symbol? (idx x 0)) (= (get-text (idx x 0)) "unquote"))
|
|
(eval (idx x 1) de)
|
|
true
|
|
(cond (and (is_pair? (idx x 0)) (symbol? (idx (idx x 0) 0)) (= (get-text (idx (idx x 0) 0)) "splice-unquote"))
|
|
(concat (eval (idx (idx x 0) 1) de) (apply quasiquote [(slice x 1 -1)] de))
|
|
true
|
|
(concat [(apply quasiquote [(idx x 0)] de)] (apply quasiquote [(slice x 1 -1)] de))))
|
|
true x)))
|
|
|
|
(add_grammar_rule 'form '("`" optional_WS form) (lambda (_ _ f) ['quasiquote f]))
|
|
(add_grammar_rule 'form '("~" optional_WS form) (lambda (_ _ f) ['unquote f]))
|
|
(add_grammar_rule 'form '("," optional_WS form) (lambda (_ _ f) ['splice-unquote f]))
|
|
|