16 lines
438 B
Ruby
16 lines
438 B
Ruby
module Register
|
|
module Builtin
|
|
module Word
|
|
module ClassMethods
|
|
def putstring context
|
|
compiler = Soml::Compiler.new.create_method(:Word , :putstring ).init_method
|
|
compiler.add_code Register.get_slot( "putstring" , :message , :receiver , :new_message )
|
|
Kernel.emit_syscall( compiler , :putstring )
|
|
compiler.method
|
|
end
|
|
end
|
|
extend ClassMethods
|
|
end
|
|
end
|
|
end
|