16 lines
515 B
Plaintext
16 lines
515 B
Plaintext
|
((wrap (vau root_env (quote)
|
||
|
|
((wrap (vau (let1)
|
||
|
|
|
||
|
|
|
||
|
|
(array 'write 1 "enter form: " (vau (written code)
|
||
|
|
(array 'read 0 200 (vau (data code)
|
||
|
|
((wrap (vau (asdf) (array 'exit (log (eval (log (read-string data))))))) code)
|
||
|
|
;((wrap (vau (asdf) (array 'exit (eval (read-string data))))) code)
|
||
|
|
;((wrap (vau (asdf) (array 'exit (cond (log "hi") written true code)))) code)
|
||
|
|
))
|
||
|
|
|
||
|
|
))
|
||
|
|
|
||
|
|
)) (vau de (s v b) (eval (array (array wrap (array vau (array s) b)) v) de)))
|
||
|
|
)) (vau (x5) x5))
|