fOOrth 0.5.3 → 0.6.0

data/integration/thread_lib_tests.rb

@@ -71,11 +71,11 @@ class ThreadLibraryTester < Minitest::Test
     foorth_run('$tmtx .lock $tmtx .unlock ')
     foorth_equal('$tmtx .do{{ 3 4 + }}', [7])
 
-    foorth_run('"" val$: $tmtx_str')
+    foorth_run('""* val$: $tmtx_str')
     foorth_equal('{{ $tmtx .do{{ 0 10 do $tmtx_str "@" << loop }} }} ' +
                  '.start drop $tmtx .do{{ $tmtx_str }} ', ["@"*10])
 
-    foorth_run('"" val$: $tmtx_str')
+    foorth_run('""* val$: $tmtx_str')
     foorth_equal('{{ Mutex .do{{ 0 10 do $tmtx_str "@" << loop }} }} ' +
                  '.start drop Mutex .do{{ $tmtx_str }} ', ["@"*10])
   end

data/lib/fOOrth/compiler/process/string.rb

@@ -12,7 +12,14 @@ module XfOOrth
     #* word  - The text of the word.
     def string_parms(token, word)
       if word.end_with?('"')
-        token.add("vm.push(#{parser.get_string.foorth_embed}); ")
+        string_value = parser.get_string.foorth_embed
+
+        if parser.source.peek == '*'
+          parser.source.get
+          token.add("vm.push(StringBuffer.new(#{string_value})); ")
+        else
+          token.add("vm.push(#{string_value}.freeze); ")
+        end
       end
     end
 

data/lib/fOOrth/compiler/source.rb

@@ -13,21 +13,23 @@ module XfOOrth
     def initialize
       reset_read_point
       @eof = false
+      @peek_buffer = nil
     end
 
     #Close the source.
     def close
       @eoln = true
       @eof = true
+      @peek_buffer = nil
     end
 
     #Get the next character of input data
     #<br>Returns:
     #* The next character or nil if none are available.
     def get
-      return nil if @eof
+      return nil if (@eof && !@peek_buffer)
 
-      read do
+      @peek_buffer || read do
         begin
           @read_step.next.rstrip
         rescue StopIteration
@@ -35,6 +37,15 @@ module XfOOrth
           nil
         end
       end
+    ensure
+      @peek_buffer = nil
+    end
+
+    #Peek ahead by one character.
+    #<br>Returns:
+    #* A peek at next character or nil if none are available.
+    def peek
+      @peek_buffer ||= get
     end
 
     #Has the source reached the end of the available data?

data/lib/fOOrth/compiler/source/console.rb

@@ -11,6 +11,8 @@ module XfOOrth
 
     #Initialize a new console command source.
     def initialize
+      @peek_buffer = nil
+
       reset_read_point
 
       auto_src = lambda { SymbolMap.forward_map.keys.sort  }
@@ -22,16 +24,30 @@ module XfOOrth
                                          eoi_detect: true)
     end
 
-    alias close reset_read_point
-    alias flush reset_read_point
+    #Close the console source.
+    def close
+      @peek_buffer = nil
+      reset_read_point
+    end
+
+    alias flush close
 
     #Get the next character of command text from the user.
     #<br>Returns
     #* The next character of user input as a string.
     def get
-      read do
+      @peek_buffer || read do
         @edit.readline(prompt: prompt).rstrip
       end
+    ensure
+      @peek_buffer = nil
+    end
+
+    #Peek ahead by one character.
+    #<br>Returns:
+    #* A peek at next character or nil if none are available.
+    def peek
+      @peek_buffer ||= get
     end
 
     #Has the scanning of the text reached the end of input?

data/lib/fOOrth/core/class.rb

@@ -7,14 +7,14 @@ class Class
   #<br>Decree!
   #* These are to be the only references to @_private_foorth_name!
   def foorth_name
-    @_private_foorth_name ||= name
+    @_private_foorth_name ||= name.freeze
   end
 
   #Set the foorth name of this class.
   #<br>Decree!
   #* These are to be the only references to @_private_foorth_name!
   def foorth_name=(new_name)
-    @_private_foorth_name = new_name
+    @_private_foorth_name = new_name.freeze
   end
 
   #Access/create the class's shared fOOrth dictionary.

data/lib/fOOrth/library/array_library.rb

@@ -119,6 +119,10 @@ module XfOOrth
   Array.create_shared_method('<<', NosSpec, [],
     &lambda {|vm| vm.poke(self << vm.peek); })
 
+  # [ [ 3 1 2 ] n ] >> [ [ n 3 1 2 ] ]
+  Array.create_shared_method('>>', NosSpec, [],
+    &lambda {|vm| vm.poke(self.insert(0, vm.peek)); })
+
   # [[3 1 2] n] + [[3 1 2 n]]
   Array.create_shared_method('+', NosSpec, [],
     &lambda {|vm| vm.poke(self + vm.peek.in_array); })
@@ -474,7 +478,7 @@ module XfOOrth
       end
     end
 
-    vm.push(result + "]")
+    vm.push((result + "]").freeze)
   })
 
   # [ l 2 3 ... n ] .strmax [ widest ]

data/lib/fOOrth/library/class_library.rb

@@ -11,7 +11,7 @@ module XfOOrth
   #Get the class as a string.
   # [cls] .to_s ["cls as a string"]
   Class.create_shared_method('.to_s', TosSpec, [], &lambda {|vm|
-    vm.push(self.foorth_name || "AnonymousClass<#{self.object_id}>")
+    vm.push(self.foorth_name || "AnonymousClass<#{self.object_id}>".freeze)
   })
 
   #The .parent_class method. Retrieves the parent class of a class.

data/lib/fOOrth/library/command_library.rb

@@ -117,7 +117,7 @@ module XfOOrth
       error "F50: Unable to locate file #{file_name}"
     end
 
-    vm.process_file(file_name)
+    vm.process_file(file_name.freeze)
 
     puts "Completed in #{Time.now - start_time} seconds"
   })
@@ -180,7 +180,7 @@ module XfOOrth
   #List the globals defined in fOOrth.
   VirtualMachine.create_shared_method(')globals', VmSpec, [], &lambda {|vm|
     $FOORTH_GLOBALS.keys.
-      select {|key| !($FOORTH_GLOBALS[key].has_tag?(:class))}.
+      select  {|key| !($FOORTH_GLOBALS[key].has_tag?(:class))}.
       collect {|key| "#{XfOOrth::SymbolMap.unmap(key)} (#{key.to_s})"}.
       foorth_pretty(vm)
   })

data/lib/fOOrth/library/duration_library.rb

@@ -47,6 +47,6 @@ module XfOOrth
 
   #Default conversion to string. See duration/formatter for formatted output.
   Duration.create_shared_method('.to_s', TosSpec, [], &lambda {|vm|
-    vm.push("Duration instance <#{self.period.to_f} seconds>" )
+    vm.push("Duration instance <#{self.period.to_f} seconds>".freeze )
   })
 end

data/lib/fOOrth/library/hash_library.rb

@@ -123,7 +123,7 @@ module XfOOrth
       result << (vm.pop || value.inspect) + " -> "
     end
 
-    vm.push(result + "}")
+    vm.push((result + "}").freeze)
   })
 
   #[a_hash] .to_h [a_hash]

data/lib/fOOrth/library/in_stream_library.rb

@@ -25,13 +25,13 @@ module XfOOrth
 
   # ["file_name", InStream] .open [an_instream]
   in_stream.create_exclusive_method('.open', TosSpec, [], &lambda {|vm|
-    file_name = vm.pop.to_s
+    file_name = vm.pop.to_s.freeze
     vm.push(XfOOrth_InStream.new(file_name))
   })
 
   in_stream.create_exclusive_method('.open{{', NosSpec, [], &lambda {|vm|
     block = vm.pop
-    file_name = vm.pop.to_s
+    file_name = vm.pop.to_s.freeze
     in_stream = XfOOrth_InStream.new(file_name)
 
     begin
@@ -71,7 +71,7 @@ module XfOOrth
   # [file_name InStream] .get_all [["line 1", "line 2", ... "line n"]]
   in_stream.create_exclusive_method('.get_all', TosSpec, [], &lambda {|vm|
     begin
-      file_name = vm.pop.to_s
+      file_name = vm.pop.to_s.freeze
       vm.push(IO.readlines(file_name).map{|line| line.chomp })
     rescue
       error "F50: Unable to open the file #{file_name} for reading all."

data/lib/fOOrth/library/object_library.rb

@@ -28,7 +28,17 @@ module XfOOrth
   #Get the object as a string.
   # [obj] .to_s ["obj as a string"]
   Object.create_shared_method('.to_s', TosSpec, [],
-    &lambda {|vm| vm.push(self.to_s)})
+    &lambda {|vm| vm.push(self.to_s.freeze)})
+
+  #Get the object as a string.
+  # [obj] .to_s ["obj as a string"]
+  Object.create_shared_method('.to_s*', TosSpec, [],
+    &lambda {|vm| vm.push(StringBuffer.new(self.to_s.dup))})
+
+  #Get the object as a string.
+  # [obj] .to_s ["obj as a string"]
+  String.create_shared_method('.to_s*', TosSpec, [],
+    &lambda {|vm| vm.push(StringBuffer.new(self.dup))})
 
   #Get the length of the object as a string.
   # [obj] .strlen [n]; the length of the object's to_s string

data/lib/fOOrth/library/out_stream_library.rb

@@ -28,14 +28,14 @@ module XfOOrth
 
   # ["file_name" OutStream] .create [an_outstream]
   out_stream.create_exclusive_method('.create', TosSpec, [], &lambda {|vm|
-    file_name = vm.pop.to_s
+    file_name = vm.pop.to_s.freeze
     vm.push(XfOOrth_OutStream.new(file_name, 'w'))
   })
 
   # ["file_name" OutStream] .create{{ ... }} []
   out_stream.create_exclusive_method('.create{{', TosSpec, [], &lambda {|vm|
     block = vm.pop
-    file_name = vm.pop.to_s
+    file_name = vm.pop.to_s.freeze
     out_stream = XfOOrth_OutStream.new(file_name, 'w')
 
     begin
@@ -48,7 +48,7 @@ module XfOOrth
   # ["file_name" OutStream] .append{{ ... }} []
   out_stream.create_exclusive_method('.append{{', TosSpec, [], &lambda {|vm|
     block = vm.pop
-    file_name = vm.pop.to_s
+    file_name = vm.pop.to_s.freeze
     out_stream = XfOOrth_OutStream.new(file_name, 'a')
 
     begin
@@ -60,7 +60,7 @@ module XfOOrth
 
   # ["file_name" OutStream] .append [an_outstream]
   out_stream.create_exclusive_method('.append', TosSpec, [], &lambda {|vm|
-    file_name = vm.pop.to_s
+    file_name = vm.pop.to_s.freeze
     vm.push(XfOOrth_OutStream.new(file_name, 'a'))
   })
 
@@ -119,7 +119,7 @@ module XfOOrth
 
   # [text_array "file_name" OutStream] .put_all []; Write the array to file_name
   out_stream.create_exclusive_method('.put_all', TosSpec, [], &lambda {|vm|
-    file_name = vm.pop.to_s
+    file_name = vm.pop.to_s.freeze
     file_source = vm.pop
     out_stream = XfOOrth_OutStream.new(file_name, 'w')
 
@@ -132,7 +132,7 @@ module XfOOrth
 
   # [text_array "file_name" OutStream] .append_all []; Append the array to file_name
   out_stream.create_exclusive_method('.append_all', TosSpec, [], &lambda {|vm|
-    file_name = vm.pop.to_s
+    file_name = vm.pop.to_s.freeze
     file_source = vm.pop
     out_stream = XfOOrth_OutStream.new(file_name, 'a')
 

data/lib/fOOrth/library/procedure_library.rb

@@ -36,7 +36,7 @@ module XfOOrth
 
   # [name procedure] .start_named [a_thread]
   Proc.create_shared_method('.start_named', TosSpec, [], &lambda {|vm|
-    vm.push(self.do_thread_start(vm, vm.pop.to_s))
+    vm.push(self.do_thread_start(vm, vm.pop.to_s.freeze))
   })
 
 end

data/lib/fOOrth/library/stdio_library.rb

@@ -47,7 +47,7 @@ module XfOOrth
   #Get a string from the console.
   # [] accept"prompt" [string]; gets a string from the console.
   VirtualMachine.create_shared_method('accept"', VmSpec, [],
-    &lambda {|vm| poke(MiniReadline.readline(peek.to_s, true)); })
+    &lambda {|vm| poke(MiniReadline.readline(peek.to_s, true).freeze); })
 
   #Get a string from the console.
   # "prompt" [] .accept [string]; gets a string from the console.

data/lib/fOOrth/library/string_library.rb

@@ -6,13 +6,21 @@ module XfOOrth
   #Connect the String class to the fOOrth class system.
   String.create_foorth_proxy
 
+  #Connect the StringBuffer class to the fOOrth class system.
+  StringBuffer.create_foorth_proxy
+
   # A no operation place holder for string literals
   VirtualMachine.create_shared_method('"', MacroSpec, [:macro, " "])
 
+  #Is this mutable? StringBuffers are, Strings are not.
+  # [a] .mutable? [flag]
+  String.create_shared_method('.mutable?', TosSpec, [],
+    &lambda {|vm| vm.push(!self.frozen?); })
+
   # [string] .each{{ ... }} [unspecified]
   String.create_shared_method('.each{{', NosSpec, [], &lambda { |vm|
     block, idx = vm.pop, 0
-    self.chars { |val| block.call(vm, val, idx); idx += 1 }
+    self.chars { |val| block.call(vm, val.freeze, idx); idx += 1 }
   })
 
   #Some comparison operators
@@ -39,32 +47,48 @@ module XfOOrth
 
   #Some string manipulation methods.
   # [n a] .ljust ['a    ']; left justify
-  String.create_shared_method('.ljust', TosSpec, [],
-    &lambda {|vm| vm.poke(self.ljust(Integer.foorth_coerce(vm.peek))); })
+  String.create_shared_method('.ljust', TosSpec, [], &lambda {|vm|
+    vm.poke(self.to_s.ljust(Integer.foorth_coerce(vm.peek)).freeze);
+  })
 
   # [n a] .cjust ['  a  ']; center justify
-  String.create_shared_method('.cjust', TosSpec, [],
-    &lambda {|vm| vm.poke(self.center(Integer.foorth_coerce(vm.peek))); })
+  String.create_shared_method('.cjust', TosSpec, [], &lambda {|vm|
+    vm.poke(self.to_s.center(Integer.foorth_coerce(vm.peek)).freeze);
+  })
 
   # [n a] .rjust ['    a']; right justify
-  String.create_shared_method('.rjust', TosSpec, [],
-    &lambda {|vm| vm.poke(self.rjust(Integer.foorth_coerce(vm.peek))); })
+  String.create_shared_method('.rjust', TosSpec, [], &lambda {|vm|
+    vm.poke(self.to_s.rjust(Integer.foorth_coerce(vm.peek)).freeze);
+  })
 
   # ["  a  "] .lstrip ["a  "]; left strip
   String.create_shared_method('.lstrip', TosSpec, [],
-    &lambda {|vm| vm.push(self.lstrip); })
+    &lambda {|vm| vm.push(self.to_s.lstrip.freeze); })
+
+  # ["  a  "*] .lstrip* []; left strip in place.
+  StringBuffer.create_shared_method('.lstrip*', TosSpec, [],
+    &lambda {|vm| self.lstrip! })
 
   # ["  a  "] .strip ["a"]; left and right strip
   String.create_shared_method('.strip', TosSpec, [],
-    &lambda {|vm| vm.push(self.strip); })
+    &lambda {|vm| vm.push(self.to_s.strip.freeze); })
+
+  # ["  a  "*] .strip* []; left and right strip in place
+  StringBuffer.create_shared_method('.strip*', TosSpec, [],
+    &lambda {|vm| self.strip! })
 
   # ["  a  "] .rstrip ["  a"]; right strip
   String.create_shared_method('.rstrip', TosSpec, [],
-    &lambda {|vm| vm.push(self.rstrip); })
+    &lambda {|vm| vm.push(self.to_s.rstrip.freeze); })
+
+  # ["  a  "*] .rstrip* []; right strip in place
+  StringBuffer.create_shared_method('.rstrip*', TosSpec, [],
+    &lambda {|vm| self.rstrip! })
 
+  #The shared block for string formatting.
   format_action = lambda do |vm|
     begin
-      vm.poke(vm.peek % self.in_array)
+      vm.poke((vm.peek % self.in_array).freeze)
     rescue => err
       vm.data_stack.pop
       error "F40: Formating error: #{err.message}."
@@ -77,7 +101,14 @@ module XfOOrth
   # [object_or_array] f"fmt_str" ['a formatted string']
   Object.create_shared_method('f"', NosSpec, [], &format_action)
 
-  parse_action = lambda {|vm| vm.poke(self.sscanf(vm.peek))}
+  parse_action = lambda do |vm|
+    begin
+      vm.poke(self.sscanf(vm.peek).map{|obj| obj.foorth_string_freeze} )
+    rescue => err
+      vm.data_stack.pop
+      error "F40: Parsing error: #{err.message}."
+    end
+  end
 
   # [a_str fmt_str] parse [result_array]
   String.create_shared_method('parse', NosSpec, [], &parse_action)
@@ -90,16 +121,16 @@ module XfOOrth
 
   # [w 'abcdefgh'] .left ['ab']         // Assumes w = 2
   String.create_shared_method('.left', TosSpec, [],
-    &lambda {|vm| vm.poke(self[0...(Integer.foorth_coerce(vm.peek))]); })
+    &lambda {|vm| vm.poke(self.to_s[0...(Integer.foorth_coerce(vm.peek))].freeze); })
 
   # [w 'abcdefgh'] .-left ['cdefgh']    // Assumes w = 2
   String.create_shared_method('.-left', TosSpec, [],
-    &lambda {|vm| vm.poke(self[(Integer.foorth_coerce(vm.peek))..-1]); })
+    &lambda {|vm| vm.poke(self.to_s[(Integer.foorth_coerce(vm.peek))..-1].freeze); })
 
   # [w '123''abcdefgh'] .+left ['123cdefgh']    // Assumes w = 2
   String.create_shared_method('.+left', TosSpec, [], &lambda {|vm|
     ins = vm.pop.to_s
-    vm.poke(ins + self[(Integer.foorth_coerce(vm.peek))..-1])
+    vm.poke((ins + self[(Integer.foorth_coerce(vm.peek))..-1]).freeze)
   })
 
   # ['abc' 'abcdefgh'] .left? [boolean]
@@ -113,14 +144,14 @@ module XfOOrth
   String.create_shared_method('.mid', TosSpec, [], &lambda {|vm|
     width = Integer.foorth_coerce(vm.pop)
     posn = Integer.foorth_coerce(vm.pop)
-    vm.push(self[posn...(posn+width)])
+    vm.push(self.to_s[posn...(posn+width)].freeze)
   })
 
   # [n w 'abcdefgh'] .-mid ['abgh']     // Assumes n = 2, w = 4
   String.create_shared_method('.-mid', TosSpec, [], &lambda {|vm|
     width = Integer.foorth_coerce(vm.pop)
     posn = Integer.foorth_coerce(vm.pop)
-    vm.push(self[0...posn] + self[(posn+width)..-1])
+    vm.push((self[0...posn] + self[(posn+width)..-1]).freeze)
   })
 
   # [n w "123" "abcdefgh"] .+mid ["ab123gh"] // Assumes n = 2, w = 4
@@ -128,7 +159,7 @@ module XfOOrth
     ins = vm.pop.to_s
     width = Integer.foorth_coerce(vm.pop)
     posn = Integer.foorth_coerce(vm.pop)
-    vm.push(self[0...posn] + ins + self[(posn+width)..-1])
+    vm.push((self[0...posn] + ins + self[(posn+width)..-1]).freeze)
   })
 
   # [n 'cde' 'abcdefgh'] .mid? [true]      // Assumes n = 2
@@ -146,14 +177,14 @@ module XfOOrth
   String.create_shared_method('.midlr', TosSpec, [], &lambda {|vm|
     right = Integer.foorth_coerce(vm.pop)
     left  = Integer.foorth_coerce(vm.pop)
-    vm.push(self[left...(0-right)])
+    vm.push(self.to_s[left...(0-right)].freeze)
   })
 
   # [l r 'abcdefgh'] .-midlr ['ah']     // Assumes l = 1, r = 1
   String.create_shared_method('.-midlr', TosSpec, [], &lambda {|vm|
     right = Integer.foorth_coerce(vm.pop)
     left  = Integer.foorth_coerce(vm.pop)
-    vm.push(self[0...left] + self[((0-right))..-1])
+    vm.push((self[0...left] + self[((0-right))..-1]).freeze)
   })
 
   # [l r "123" 'abcdefgh'] .+midlr ['a123h']     // Assumes l = 1, r = 1
@@ -161,24 +192,26 @@ module XfOOrth
     ins = vm.pop.to_s
     right = Integer.foorth_coerce(vm.pop)
     left  = Integer.foorth_coerce(vm.pop)
-    vm.push(self[0...left] + ins + self[((0-right))..-1])
+    vm.push((self[0...left] + ins + self[((0-right))..-1]).freeze)
   })
 
   #RIGHT Group
 
   # [w 'abcdefgh'] .right ['gh']        // Assumes w = 2
-  String.create_shared_method('.right', TosSpec, [],
-    &lambda {|vm| vm.poke(self[(0-(Integer.foorth_coerce(vm.peek)))..-1]); })
+  String.create_shared_method('.right', TosSpec, [], &lambda {|vm|
+    vm.poke(self.to_s[(0-(Integer.foorth_coerce(vm.peek)))..-1].freeze);
+  })
 
   # [w 'abcdefgh'] .-right ['abcdef']   // Assumes w = 2
-  String.create_shared_method('.-right', TosSpec, [],
-    &lambda {|vm| vm.poke(self[0...(0-(Integer.foorth_coerce(vm.peek)))]); })
+  String.create_shared_method('.-right', TosSpec, [], &lambda {|vm|
+    vm.poke(self.to_s[0...(0-(Integer.foorth_coerce(vm.peek)))].freeze);
+  })
 
   # [w "123" 'abcdefgh'] .+right ['abcdef123']   // Assumes w = 2
   String.create_shared_method('.+right', TosSpec, [], &lambda {|vm|
     ins = vm.pop.to_s
     width = Integer.foorth_coerce(vm.pop)
-    vm.push(self[0...(0-width)] + ins)
+    vm.push((self[0...(0-width)] + ins).freeze)
   })
 
   # ['fgh' 'abcdefgh'] .right? [boolean]
@@ -201,16 +234,20 @@ module XfOOrth
 
   # ["b", a] + ["ba"]; "ba" is a new object, distinct from "b"
   String.create_shared_method('+', NosSpec, [],
-    &lambda {|vm| vm.poke(self + vm.peek.to_s); })
+    &lambda {|vm| vm.poke((self + vm.peek.to_s).freeze) })
 
-  # ["b", a] << ["ba"]; "ba" is the same object as "b"
-  String.create_shared_method('<<', NosSpec, [],
+  # ["b"*, a] << ["ba"*]; "ba"* is the same object as "b"*
+  StringBuffer.create_shared_method('<<', NosSpec, [],
     &lambda {|vm| vm.poke(self << vm.peek.to_s); })
 
+  # ["b"*, a] >> ["ab"*]; "ab"* is the same object as "b"*
+  StringBuffer.create_shared_method('>>', NosSpec, [],
+    &lambda {|vm| vm.poke(self.prepend(vm.peek.to_s)); })
+
   # ["b", n] * ["bbb..."]
   String.create_shared_method('*', NosSpec, [], &lambda {|vm|
     begin
-      vm.poke(self * Integer.foorth_coerce(vm.peek))
+      vm.poke((self.to_s * Integer.foorth_coerce(vm.peek)).freeze)
     rescue
       vm.data_stack.pop
       raise
@@ -219,15 +256,27 @@ module XfOOrth
 
   # ["abCD"] .to_upper ["ABCD"]
   String.create_shared_method('.to_upper', TosSpec, [],
-    &lambda {|vm| vm.push(self.upcase); })
+    &lambda {|vm| vm.push(self.to_s.upcase.freeze) })
+
+  # ["abCD"*] .to_upper* [] #Convert to upper case in place.
+  StringBuffer.create_shared_method('.to_upper*', TosSpec, [],
+    &lambda {|vm| self.upcase! })
 
   # ["abCD"] .to_lower ["abcd"]
   String.create_shared_method('.to_lower', TosSpec, [],
-    &lambda {|vm| vm.push(self.downcase); })
+    &lambda {|vm| vm.push(self.to_s.downcase.freeze) })
+
+  # ["abCD"*] .to_lower* [] #Convert to lower case in place.
+  StringBuffer.create_shared_method('.to_lower*', TosSpec, [],
+    &lambda {|vm| self.downcase! })
 
   # ["stressed"] .reverse ["desserts"]
   String.create_shared_method('.reverse', TosSpec, [],
-    &lambda {|vm| vm.push(self.reverse); })
+    &lambda {|vm| vm.push(self.to_s.reverse.freeze); })
+
+  # ["stressed"*] .reverse* [] #Reverse the string in place.
+  StringBuffer.create_shared_method('.reverse*', TosSpec, [],
+    &lambda {|vm| self.reverse! })
 
   # ["abc\\ndef\\n123"] .lines [["abc", "def", "123"]]
   String.create_shared_method('.lines', TosSpec, [],