0
@@ -21,7 +21,7 @@ module BusScheme
0
define '/', lambda { |x, y| x / y }
0
define 'concat', lambda { |*args| args.join('') }
0
- define 'cons', lambda { |
car, cdr| Cons.new(car, cdr) }
0
+ define 'cons', lambda { |
*args| Cons.new(*args) }
0
define 'list', lambda { |*members| members.to_list }
0
define 'vector', lambda { |*members| members.to_a }
0
define 'map', lambda { |fn, list| list.map(lambda { |n| fn.call(n) }).sexp }
0
@@ -36,7 +36,7 @@ module BusScheme
0
define 'fail', lambda { |message| raise AssertionFailed, "#{message}\n #{BusScheme.stacktrace.join("\n ")}" }
0
define 'ruby', lambda { |*code| Kernel.eval code.join('') }
0
- define 'send', lambda { |obj,
*message| obj.send(*message) }
0
+ define 'send', lambda { |obj,
message, *args| obj.send(message.to_sym, *args) }
0
define 'load', lambda { |filename| BusScheme.load filename }
0
define 'exit', lambda { exit }
Comments
No one has commented yet.