sfeng/lisp-interpreter-rb
1
0
Fork 0
mirror of https://github.com/vonhyou/lisp-interpreter.git synced 2025-06-08 02:02:01 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

rewrite env

Browse source
This commit is contained in:
vonhyou 2021-04-15 01:49:26 +08:00
parent 19b8871a06
commit b0bd6e899d
1 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

11
prol.rb
View file

@ -51,10 +51,17 @@ module Lisp
def self.make_global def self.make_global
@global_env ||= begin @global_env ||= begin
ops = %i[== != < <= > >= + - * / % & | ^ ～] ops = %i[== != < <= > >= + - * / % & | ^ ～]
ops.inject({}) do |scope, op| ops.inject({}) do |sp, op|
scope.merge op => ->(*args) { args.inject(&op) } sp.merge op => ->(*args) { args.inject(&op) }
end end
end end
@global_env.merge! quote: ->(*args) { args.to_a }
@global_env.merge! cons: ->(*args) { args.to_a }
@global_env.merge! car: ->(arr) { arr[0] }
@global_env.merge! cdr: ->(arr) { arr[1..-1] }
@global_env.merge! print: ->(arg) { p arg }
@global_env
end end
##### Lisp Eval ##### Lisp Eval