fOOrth 0.5.3 → 0.6.0

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: 559890e4f92fd01b8c19f1da0906079b017f57b0
-  data.tar.gz: ced8ded1201a853b006d486e4915c14b92decac0
+  metadata.gz: 1d0d6f091b373efebb5abe63ef8640ff9b6ccb19
+  data.tar.gz: ac4726f91899a582360c249d6a56fbdb5a392c6e
 SHA512:
-  metadata.gz: 718ccfe382895223af46fdcf931cf02c24f5bde48594b825537d2cc53b218e52606792f063d8c3ced03d553a90797878214e44d4dff167cd52e1568c2f6195da
-  data.tar.gz: 28afe39a7ccd28ee0c716bf54644a88a363d6830e81b9ab30801986ea38546c4df665be9fe3b43b8d0bfe0cf5086aee582bb6d9d9f4704d8edee04696bbbcf52
+  metadata.gz: 81570f5d034eb8507fb59a6121b0e205b3edcbfea451fcba3a49127a5a535ed92828b1fecd1da8a0359c802543f76830234201c38d9302dfe75024f489d8add5
+  data.tar.gz: 68e73dbaba411571709f779ba5b10f8af82a5d2a572be1fbc9b1bcf1a138c43cf02f344c91bf53f1dabd520699baee8d22ae754359dce8fb3c4976cd7982cf5f

data/.gitignore

@@ -11,6 +11,7 @@ InstalledFiles
 _yardoc
 coverage
 docs/.~lock.*
+docs/The_fOOrth_User_Guide.pdf
 lib/bundler/man
 pkg
 rdoc

data/README.md

@@ -7,6 +7,13 @@ past, but continued to grow and develop with the times. Above all this project
 is the result of nearly 30 years of thought on the design of threaded
 compilers and languages with simplified grammars and syntax.
 
+## Community
+
+While it is still very much a work in progress, you are invited to see The
+fOOrth Programming Language web site at:
+<br>http://www.foorth.org/
+<br>
+
 ## Usage
 Adding fOOrth can be as simple as:
 
@@ -45,7 +52,7 @@ version of fOOrth is made available, expect to see portable document format
 
 #### Plan A
 
-1. Fork it
+1. Fork it ( https://github.com/PeterCamilleri/fOOrth/fork )
 2. Switch to the development branch ('git branch development')
 3. Create your feature branch ('git checkout -b my-new-feature')
 4. Commit your changes ('git commit -am "Add some feature"')
@@ -60,7 +67,4 @@ http://nvie.com/posts/a-successful-git-branching-model/
 #### Plan B
 
 Go to the GitHub repository and raise an issue calling attention to some
-aspect that could use some TLC or a suggestion or an idea. Apply labels
-to the issue that match the point you are trying to make. Then follow
-your issue and keep up-to-date as it is worked on. All input are greatly
-appreciated.
+aspect that could use some TLC or a suggestion or an idea.

data/integration/array_lib_tests.rb

@@ -283,6 +283,8 @@ class ArrayLibraryTester < Minitest::Test
     foorth_equal('[ 9 3 5 ] [ 4 1 ] << ', [[9,3,5,[4,1]]])
     foorth_equal('[ 9 3 5 ] [ 4 1 ] << ', [[9,3,5,[4,1]]])
 
+    foorth_equal('[ 9 3 5 ] 0       >> ', [[0,9,3,5]])
+
     foorth_equal('[ 9 3 5 ] 0       + ', [[9,3,5,0]])
     foorth_equal('[ 9 3 5 ] [ 0 ]   + ', [[9,3,5,0]])
     foorth_equal('[ 9 3 5 ] { }     + ', [[9,3,5,{}]])

data/integration/clone_lib_tests.rb

@@ -21,20 +21,27 @@ class CloneLibraryTester < Minitest::Test
     foorth_equal("33 clone identical?", [true])
     foorth_equal("33 clone distinct?", [false])
 
-    foorth_equal('"33" clone identical?', [false])
-    foorth_equal('"33" clone distinct?', [true])
+    foorth_equal('"33" clone identical?', [true])
+    foorth_equal('"33" clone distinct?', [false])
 
-    foorth_equal('"33" dup .clone identical?', [false])
-    foorth_equal('"33" dup .clone distinct?', [true])
+    foorth_equal('"33"* clone identical?', [false])
+    foorth_equal('"33"* clone distinct?', [true])
+
+    foorth_equal('"33" dup .clone identical?', [true])
+    foorth_equal('"33" dup .clone distinct?', [false])
+
+    foorth_equal('"33"* dup .clone identical?', [false])
+    foorth_equal('"33"* dup .clone distinct?', [true])
 
     foorth_equal('[ "33" ] clone distinct?', [true])
-    foorth_equal('[ "33" ] clone @ swap @ distinct?', [true])
+    foorth_equal('[ "33" ] clone @ swap @ distinct?', [false])
+    foorth_equal('[ "33"* ] clone @ swap @ distinct?', [true])
 
   end
 
   def test_some_clone_exclusion
     foorth_run('class: Tscx')
-    foorth_run('Tscx .: .init "a" val@: @a "b" val@: @b ;')
+    foorth_run('Tscx .: .init "a"* val@: @a "b"* val@: @b ;')
     foorth_run('Tscx .: .a @a ;')
     foorth_run('Tscx .: .b @b ;')
     foorth_run('Tscx .: .clone_exclude [ "@b" ] ;')
@@ -59,7 +66,7 @@ class CloneLibraryTester < Minitest::Test
   end
 
   def test_array_clone_exclusion
-    foorth_run('[ "a" "b" ] val$: $tacx1')
+    foorth_run('[ "a"* "b"* ] val$: $tacx1')
     foorth_run('$tacx1 .:: .clone_exclude [ 1 ] ;')
     foorth_run('$tacx1 .clone val$: $tacx2')
 
@@ -77,7 +84,7 @@ class CloneLibraryTester < Minitest::Test
   end
 
   def test_hash_clone_exclusion
-    foorth_run('{ 0 "a" -> 1 "b" -> } val$: $thcx1')
+    foorth_run('{ 0 "a"* -> 1 "b"* -> } val$: $thcx1')
     foorth_run('$thcx1 .:: .clone_exclude [ 1 ] ;')
     foorth_run('$thcx1 .clone val$: $thcx2')
 
@@ -98,11 +105,14 @@ class CloneLibraryTester < Minitest::Test
     foorth_equal("33 copy", [33,33])
     foorth_equal("33 .copy", [33])
 
-    foorth_equal('"33" copy identical?', [false])
-    foorth_equal('"33" copy distinct?', [true])
+    foorth_equal('"33" copy identical?', [true])
+    foorth_equal('"33" copy distinct?', [false])
+
+    foorth_equal('"33"* copy identical?', [false])
+    foorth_equal('"33"* copy distinct?', [true])
 
     foorth_equal('[ "33" ] copy distinct?', [true])
     foorth_equal('[ "33" ] copy @ swap @ distinct?', [false])
   end
 
-end
+end

data/integration/standard_lib_tests.rb

@@ -86,12 +86,15 @@ class StandardLibraryTester < Minitest::Test
     foorth_equal("33 33 identical?", [true])
     foorth_equal("33 33 distinct?", [false])
 
-    foorth_equal('"33" "33" identical?', [false])
-    foorth_equal('"33" "33" distinct?', [true])
+    foorth_equal('"33" "33" identical?', [true])
+    foorth_equal('"33" "33" distinct?', [false])
 
     foorth_equal('"33" dup  identical?', [true])
     foorth_equal('"33" dup  distinct?', [false])
 
+    foorth_equal('"33"* "33"* identical?', [false])
+    foorth_equal('"33"* "33"* distinct?', [true])
+
   end
 
   def test_dyadic_error_recovery

data/integration/string_lib_tests.rb

@@ -14,6 +14,25 @@ class StringLibraryTester < Minitest::Test
   #Track mini-test progress.
   include MinitestVisible
 
+  def test_string_classes
+    foorth_equal('String ',            [String])
+    foorth_equal('"A" .class ',        [String])
+    foorth_equal('"A" .to_s* .class',  [StringBuffer])
+
+    foorth_equal('StringBuffer ',      [StringBuffer])
+    foorth_equal('"A"* .class ',       [StringBuffer])
+    foorth_equal('"A"* .to_s .class ', [String])
+
+    foorth_equal('String       .new ',  [""])
+    foorth_equal('StringBuffer .new ',  [""])
+
+    foorth_equal('String       .new .class',  [String])
+    foorth_equal('StringBuffer .new .class',  [StringBuffer])
+
+    foorth_equal('String       .new .mutable?', [false])
+    foorth_equal('StringBuffer .new .mutable?', [true])
+  end
+
   def test_string_literals
     foorth_equal(' ""          ',  [""])
     foorth_equal(' "\""        ',  ["\""])
@@ -39,6 +58,18 @@ class StringLibraryTester < Minitest::Test
 
     foorth_equal(' "a\\x55b" ',  ["aUb"])
     foorth_equal(' "a\\u5555b" ',  ["a\u5555b"])
+
+    foorth_equal('"A"  .mutable?', [false])
+    foorth_equal('"A"* .mutable?', [true])
+  end
+
+  def test_that_strings_are_immutable
+    foorth_raises('"A" "B" <<')
+  end
+
+  def test_that_string_buffers_are_not
+    foorth_equal('"A"* "B" <<', ["AB"])
+    foorth_equal('"A"* "B" >>', ["BA"])
   end
 
   def test_file_loading
@@ -77,77 +108,257 @@ class StringLibraryTester < Minitest::Test
   def test_left_justification
     foorth_equal('5 "a"        .ljust ', ['a    '])
     foorth_equal('5 "too long" .ljust ', ['too long'])
+
+    foorth_equal('5 "a" .ljust .mutable?', [false])
+    foorth_equal('5 "a"* .ljust .class', [String])
   end
 
   def test_center_justification
     foorth_equal('5 "a"        .cjust ', ['  a  '])
     foorth_equal('5 "too long" .cjust ', ['too long'])
+
+    foorth_equal('5 "a" .cjust .mutable?', [false])
+    foorth_equal('5 "a"* .cjust .class', [String])
   end
 
   def test_right_justification
     foorth_equal('5 "a"        .rjust ', ['    a'])
     foorth_equal('5 "too long" .rjust ', ['too long'])
+
+    foorth_equal('5 "a" .rjust .mutable?', [false])
+    foorth_equal('5 "a"* .rjust .class', [String])
   end
 
   def test_left_strip
     foorth_equal('" a " .lstrip ', ["a "])
+
+    foorth_equal('" a " .lstrip .mutable?', [false])
+    foorth_equal('" a " .lstrip .class', [String])
+
+    foorth_equal('" a "* .lstrip ', ["a "])
+    foorth_equal('" a "* .lstrip .class', [String])
+
+    foorth_run('" abc "* val$: $tls1')
+    foorth_equal('$tls1', [" abc "])
+    foorth_equal('$tls1 .lstrip*',  [])
+    foorth_equal('$tls1 dup .class',  ["abc ", StringBuffer])
   end
 
   def test_center_strip
     foorth_equal('" a " .strip ', ["a"])
+
+    foorth_equal('" a " .strip .mutable?', [false])
+    foorth_equal('" a " .strip .class', [String])
+
+    foorth_equal('" a "* .strip ', ["a"])
+    foorth_equal('" a "* .strip .class', [String])
+
+    foorth_run('" abc "* val$: $tcs1')
+    foorth_equal('$tcs1', [" abc "])
+    foorth_equal('$tcs1 .strip*',  [])
+    foorth_equal('$tcs1 dup .class',  ["abc", StringBuffer])
   end
 
   def test_right_strip
     foorth_equal('" a " .rstrip ', [" a"])
+
+    foorth_equal('" a " .rstrip .mutable?', [false])
+    foorth_equal('" a " .rstrip .class', [String])
+
+    foorth_equal('" a "* .rstrip ', [" a"])
+    foorth_equal('" a "* .rstrip .class', [String])
+
+    foorth_run('" abc "* val$: $trs1')
+    foorth_equal('$trs1', [" abc "])
+    foorth_equal('$trs1 .rstrip*',  [])
+    foorth_equal('$trs1 dup .class',  [" abc", StringBuffer])
   end
 
   def test_formatted_strings
     foorth_equal('5 "%03d" format ', ['005'])
     foorth_equal('5 f"%03d"  ', ['005'])
+
+    foorth_equal('5 f"%03d" .mutable?', [false])
   end
 
   def test_left_copy_paste_and_cut
     foorth_equal('2 "abcdefgh"         .left  ',  ['ab'])
+    foorth_equal('2 "abcdefgh"*        .left  ',  ['ab'])
+    foorth_equal('2 "abcdefgh"         .left  .mutable?', [false])
+    foorth_equal('2 "abcdefgh"*        .left  .mutable?', [false])
+    foorth_equal('2 "abcdefgh"         .left  .class',  [String])
+    foorth_equal('2 "abcdefgh"*        .left  .class',  [String])
+
     foorth_equal('2 "123" "abcdefgh"   .+left ',  ['123cdefgh'])
+    foorth_equal('2 "123" "abcdefgh"*  .+left ',  ['123cdefgh'])
+    foorth_equal('2 "123" "abcdefgh"   .+left .mutable?', [false])
+    foorth_equal('2 "123" "abcdefgh"*  .+left .mutable?', [false])
+    foorth_equal('2 "123" "abcdefgh"   .+left .class',  [String])
+    foorth_equal('2 "123" "abcdefgh"*  .+left .class',  [String])
+
     foorth_equal('2 "abcdefgh"         .-left ',  ['cdefgh'])
+    foorth_equal('2 "abcdefgh"*        .-left ',  ['cdefgh'])
+    foorth_equal('2 "abcdefgh"         .-left .mutable?', [false])
+    foorth_equal('2 "abcdefgh"*        .-left .mutable?', [false])
+    foorth_equal('2 "abcdefgh"         .-left .class',  [String])
+    foorth_equal('2 "abcdefgh"*        .-left .class',  [String])
+
     foorth_equal('"abc" "abcdefgh"     .left? ',  [true])
     foorth_equal('"abx" "abcdefgh"     .left? ',  [false])
+    foorth_equal('"abc" "abcdefgh"*    .left? ',  [true])
+    foorth_equal('"abx" "abcdefgh"*    .left? ',  [false])
+    foorth_equal('"abc"* "abcdefgh"    .left? ',  [true])
+    foorth_equal('"abx"* "abcdefgh"    .left? ',  [false])
+    foorth_equal('"abc"* "abcdefgh"*   .left? ',  [true])
+    foorth_equal('"abx"* "abcdefgh"*   .left? ',  [false])
   end
 
   def test_right_copy_paste_and_cut
     foorth_equal('2 "abcdefgh"         .right  ', ['gh'])
+    foorth_equal('2 "abcdefgh"*        .right  ', ['gh'])
+    foorth_equal('2 "abcdefgh"         .right .mutable?', [false])
+    foorth_equal('2 "abcdefgh"*        .right .mutable?', [false])
+    foorth_equal('2 "abcdefgh"         .right .class',  [String])
+    foorth_equal('2 "abcdefgh"*        .right .class',  [String])
+
     foorth_equal('2 "123" "abcdefgh"   .+right ', ['abcdef123'])
+    foorth_equal('2 "123" "abcdefgh"*  .+right ', ['abcdef123'])
+    foorth_equal('2 "123" "abcdefgh"   .+right .mutable?', [false])
+    foorth_equal('2 "123" "abcdefgh"*  .+right .mutable?', [false])
+    foorth_equal('2 "123" "abcdefgh"   .+right .class',  [String])
+    foorth_equal('2 "123" "abcdefgh"*  .+right .class',  [String])
+
     foorth_equal('2 "abcdefgh"         .-right ', ['abcdef'])
+    foorth_equal('2 "abcdefgh"*        .-right ', ['abcdef'])
+    foorth_equal('2 "abcdefgh"         .-right .mutable?', [false])
+    foorth_equal('2 "abcdefgh"*        .-right .mutable?', [false])
+    foorth_equal('2 "abcdefgh"         .-right .class',  [String])
+    foorth_equal('2 "abcdefgh"*        .-right .class',  [String])
+
     foorth_equal('"fgh" "abcdefgh"     .right? ', [true])
     foorth_equal('"fgx" "abcdefgh"     .right? ', [false])
+    foorth_equal('"fgh" "abcdefgh"*    .right? ', [true])
+    foorth_equal('"fgx" "abcdefgh"*    .right? ', [false])
+    foorth_equal('"fgh"* "abcdefgh"    .right? ', [true])
+    foorth_equal('"fgx"* "abcdefgh"    .right? ', [false])
+    foorth_equal('"fgh"* "abcdefgh"*   .right? ', [true])
+    foorth_equal('"fgx"* "abcdefgh"*   .right? ', [false])
   end
 
   def test_mid_copy_paste_and_cut
     foorth_equal('2 4 "abcdefgh"       .mid  ',   ['cdef'])
+    foorth_equal('2 4 "abcdefgh"*      .mid  ',   ['cdef'])
+    foorth_equal('2 4 "abcdefgh"       .mid .mutable?', [false])
+    foorth_equal('2 4 "abcdefgh"*      .mid .mutable?', [false])
+    foorth_equal('2 4 "abcdefgh"       .mid .class',  [String])
+    foorth_equal('2 4 "abcdefgh"*      .mid .class',  [String])
+
     foorth_equal('2 4 "abcdefgh"       .-mid ',   ['abgh'])
+    foorth_equal('2 4 "abcdefgh"*      .-mid ',   ['abgh'])
+    foorth_equal('2 4 "abcdefgh"       .-mid .mutable?', [false])
+    foorth_equal('2 4 "abcdefgh"*      .-mid .mutable?', [false])
+    foorth_equal('2 4 "abcdefgh"       .-mid .class',  [String])
+    foorth_equal('2 4 "abcdefgh"*      .-mid .class',  [String])
+
     foorth_equal('2 4 "123" "abcdefgh" .+mid ',   ['ab123gh'])
     foorth_equal('2 0 "123" "abcdefgh" .+mid ',   ['ab123cdefgh'])
+    foorth_equal('2 4 "123" "abcdefgh"* .+mid ',  ['ab123gh'])
+    foorth_equal('2 0 "123" "abcdefgh"* .+mid ',  ['ab123cdefgh'])
+    foorth_equal('2 4 "123"* "abcdefgh" .+mid ',  ['ab123gh'])
+    foorth_equal('2 0 "123"* "abcdefgh" .+mid ',  ['ab123cdefgh'])
+    foorth_equal('2 4 "123"* "abcdefgh"* .+mid ', ['ab123gh'])
+    foorth_equal('2 0 "123"* "abcdefgh"* .+mid ', ['ab123cdefgh'])
+
+    foorth_equal('2 4 "123" "abcdefgh" .+mid   .mutable?', [false])
+    foorth_equal('2 0 "123" "abcdefgh" .+mid   .mutable?', [false])
+    foorth_equal('2 4 "123" "abcdefgh"* .+mid  .mutable?', [false])
+    foorth_equal('2 0 "123" "abcdefgh"* .+mid  .mutable?', [false])
+    foorth_equal('2 4 "123"* "abcdefgh" .+mid  .mutable?', [false])
+    foorth_equal('2 0 "123"* "abcdefgh" .+mid  .mutable?', [false])
+    foorth_equal('2 4 "123"* "abcdefgh"* .+mid .mutable?', [false])
+    foorth_equal('2 0 "123"* "abcdefgh"* .+mid .mutable?', [false])
+
+    foorth_equal('2 4 "123" "abcdefgh" .+mid   .class',  [String])
+    foorth_equal('2 0 "123" "abcdefgh" .+mid   .class',  [String])
+    foorth_equal('2 4 "123" "abcdefgh"* .+mid  .class',  [String])
+    foorth_equal('2 0 "123" "abcdefgh"* .+mid  .class',  [String])
+    foorth_equal('2 4 "123"* "abcdefgh" .+mid  .class',  [String])
+    foorth_equal('2 0 "123"* "abcdefgh" .+mid  .class',  [String])
+    foorth_equal('2 4 "123"* "abcdefgh"* .+mid .class',  [String])
+    foorth_equal('2 0 "123"* "abcdefgh"* .+mid .class',  [String])
   end
 
   def test_mid_find
     foorth_equal('2 "cde" "abcdefgh"    .mid? ',   [true])
     foorth_equal('3 "cde" "abcdefgh"    .mid? ',   [false])
+
+    foorth_equal('2 "cde"* "abcdefgh"    .mid? ',   [true])
+    foorth_equal('3 "cde"* "abcdefgh"    .mid? ',   [false])
+
+    foorth_equal('2 "cde" "abcdefgh"*    .mid? ',   [true])
+    foorth_equal('3 "cde" "abcdefgh"*    .mid? ',   [false])
+
+    foorth_equal('2 "cde"* "abcdefgh"*    .mid? ',   [true])
+    foorth_equal('3 "cde"* "abcdefgh"*    .mid? ',   [false])
   end
 
   def test_midlr_copy_paste_and_cut
     foorth_equal('2 2 "abcdefgh"       .midlr  ', ['cdef'])
+    foorth_equal('2 2 "abcdefgh"*      .midlr  ', ['cdef'])
+    foorth_equal('2 2 "abcdefgh"       .midlr  .mutable?', [false])
+    foorth_equal('2 2 "abcdefgh"*      .midlr  .mutable?', [false])
+    foorth_equal('2 2 "abcdefgh"       .midlr  .class',  [String])
+    foorth_equal('2 2 "abcdefgh"*      .midlr  .class',  [String])
+
     foorth_equal('2 2 "abcdefgh"       .-midlr ', ['abgh'])
+    foorth_equal('2 2 "abcdefgh"*      .-midlr ', ['abgh'])
+    foorth_equal('2 2 "abcdefgh"       .-midlr .mutable?', [false])
+    foorth_equal('2 2 "abcdefgh"*      .-midlr .mutable?', [false])
+    foorth_equal('2 2 "abcdefgh"       .-midlr .class',  [String])
+    foorth_equal('2 2 "abcdefgh"*      .-midlr .class',  [String])
+
     foorth_equal('2 2 "123" "abcdefgh" .+midlr ', ['ab123gh'])
+    foorth_equal('2 2 "123" "abcdefgh"*.+midlr ', ['ab123gh'])
+    foorth_equal('2 2 "123"* "abcdefgh" .+midlr ', ['ab123gh'])
+    foorth_equal('2 2 "123"* "abcdefgh"*.+midlr ', ['ab123gh'])
+
+    foorth_equal('2 2 "123" "abcdefgh" .+midlr .mutable?', [false])
+    foorth_equal('2 2 "123" "abcdefgh"*.+midlr .mutable?', [false])
+    foorth_equal('2 2 "123"* "abcdefgh" .+midlr .mutable?', [false])
+    foorth_equal('2 2 "123"* "abcdefgh"*.+midlr .mutable?', [false])
+
+    foorth_equal('2 2 "123" "abcdefgh" .+midlr .class',  [String])
+    foorth_equal('2 2 "123" "abcdefgh"*.+midlr .class',  [String])
+    foorth_equal('2 2 "123"* "abcdefgh" .+midlr .class',  [String])
+    foorth_equal('2 2 "123"* "abcdefgh"*.+midlr .class',  [String])
   end
 
   def test_string_contains
-    foorth_equal('"cde" "abcdefgh"  .contains? ',   [true])
-    foorth_equal('"cdx" "abcdefgh"  .contains? ',   [false])
+    foorth_equal('"cde" "abcdefgh"   .contains? ',   [true])
+    foorth_equal('"cdx" "abcdefgh"   .contains? ',   [false])
+
+    foorth_equal('"cde" "abcdefgh"*  .contains? ',   [true])
+    foorth_equal('"cdx" "abcdefgh"*  .contains? ',   [false])
+
+    foorth_equal('"cde"* "abcdefgh"  .contains? ',   [true])
+    foorth_equal('"cdx"* "abcdefgh"  .contains? ',   [false])
+
+    foorth_equal('"cde"* "abcdefgh"* .contains? ',   [true])
+    foorth_equal('"cdx"* "abcdefgh"* .contains? ',   [false])
   end
 
   def test_string_posn
-    foorth_equal('"cde" "abcdefgh"      .posn ',   [2])
-    foorth_equal('"cdx" "abcdefgh"      .posn ',   [nil])
+    foorth_equal('"cde"  "abcdefgh"     .posn ',   [2])
+    foorth_equal('"cdx"  "abcdefgh"     .posn ',   [nil])
+
+    foorth_equal('"cde"  "abcdefgh"*    .posn ',   [2])
+    foorth_equal('"cdx"  "abcdefgh"*    .posn ',   [nil])
+
+    foorth_equal('"cde"* "abcdefgh"     .posn ',   [2])
+    foorth_equal('"cdx"* "abcdefgh"     .posn ',   [nil])
+
+    foorth_equal('"cde"* "abcdefgh"*    .posn ',   [2])
+    foorth_equal('"cdx"* "abcdefgh"*    .posn ',   [nil])
   end
 
   def test_replication
@@ -155,30 +366,107 @@ class StringLibraryTester < Minitest::Test
     foorth_equal('"abc" 1 *',  ['abc'])
     foorth_equal('"abc" 2 *',  ['abcabc'])
     foorth_equal('"abc" 3 *',  ['abcabcabc'])
+
+    foorth_equal('"abc"* 0 *',  [''])
+    foorth_equal('"abc"* 1 *',  ['abc'])
+    foorth_equal('"abc"* 2 *',  ['abcabc'])
+    foorth_equal('"abc"* 3 *',  ['abcabcabc'])
+
+    foorth_equal('"abc" 0 * .mutable?', [false])
+    foorth_equal('"abc" 1 * .mutable?', [false])
+    foorth_equal('"abc" 2 * .mutable?', [false])
+    foorth_equal('"abc" 3 * .mutable?', [false])
+
+    foorth_equal('"abc"* 0 * .mutable?', [false])
+    foorth_equal('"abc"* 1 * .mutable?', [false])
+    foorth_equal('"abc"* 2 * .mutable?', [false])
+    foorth_equal('"abc"* 3 * .mutable?', [false])
+
+    foorth_equal('"abc" 0 * .class',  [String])
+    foorth_equal('"abc" 1 * .class',  [String])
+    foorth_equal('"abc" 2 * .class',  [String])
+    foorth_equal('"abc" 3 * .class',  [String])
+
+    foorth_equal('"abc"* 0 * .class',  [String])
+    foorth_equal('"abc"* 1 * .class',  [String])
+    foorth_equal('"abc"* 2 * .class',  [String])
+    foorth_equal('"abc"* 3 * .class',  [String])
   end
 
   def test_concatenation
     foorth_equal('"abc" 0     +',   ['abc0'])
-    foorth_equal('"abc" "def" + ',  ['abcdef'])
-
-    foorth_equal('"abc" 0     <<',  ['abc0'])
-    foorth_equal('"abc" "def" << ', ['abcdef'])
-
-    foorth_equal('"abc" dup "def" +  distinct?', [true])
-    foorth_equal('"abc" dup "def" << distinct?', [false])
+    foorth_equal('"abc"* 0    +',   ['abc0'])
+    foorth_equal('"abc" 0     + .mutable?', [false])
+    foorth_equal('"abc"* 0    + .mutable?', [false])
+    foorth_equal('"abc" 0     + .class',  [String])
+    foorth_equal('"abc"* 0    + .class',  [String])
+
+    foorth_equal('"abc"  "def"  + ',  ['abcdef'])
+    foorth_equal('"abc"  "def"* + ',  ['abcdef'])
+    foorth_equal('"abc"* "def"  + ',  ['abcdef'])
+    foorth_equal('"abc"* "def"* + ',  ['abcdef'])
+
+    foorth_equal('"abc"  "def"  + .mutable?', [false])
+    foorth_equal('"abc"  "def"* + .mutable?', [false])
+    foorth_equal('"abc"* "def"  + .mutable?', [false])
+    foorth_equal('"abc"* "def"* + .mutable?', [false])
+
+    foorth_equal('"abc"  "def"  + .class',  [String])
+    foorth_equal('"abc"  "def"* + .class',  [String])
+    foorth_equal('"abc"* "def"  + .class',  [String])
+    foorth_equal('"abc"* "def"* + .class',  [String])
+
+    foorth_equal('"abc"* 0      <<',  ['abc0'])
+    foorth_equal('"abc"* "def"  << ', ['abcdef'])
+    foorth_equal('"abc"* "def"* << ', ['abcdef'])
+
+    foorth_equal(' "abc" dup "def" +  distinct?', [true])
+    foorth_equal('"abc"* dup "def" << distinct?', [false])
   end
 
   def test_case_changing
-    foorth_equal('"abcDEF" .to_upper',  ['ABCDEF'])
-    foorth_equal('"abcDEF" .to_lower',  ['abcdef'])
+    foorth_equal('"abcDEF"  .to_upper',  ['ABCDEF'])
+    foorth_equal('"abcDEF"* .to_upper',  ['ABCDEF'])
+    foorth_equal('"abcDEF"  .to_upper .mutable?', [false])
+    foorth_equal('"abcDEF"* .to_upper .mutable?', [false])
+    foorth_equal('"abcDEF"  .to_upper .class',  [String])
+    foorth_equal('"abcDEF"* .to_upper .class',  [String])
+
+    foorth_raises('"abcDEF" .to_upper*')
+    foorth_equal('"abcDEF"* dup .to_upper*', ['ABCDEF'])
+    foorth_equal('"abcDEF"* dup .to_upper* .mutable?', [true])
+    foorth_equal('"abcDEF"* dup .to_upper* .class', [StringBuffer])
+
+    foorth_equal('"abcDEF"  .to_lower',  ['abcdef'])
+    foorth_equal('"abcDEF"* .to_lower',  ['abcdef'])
+    foorth_equal('"abcDEF"  .to_lower .mutable?', [false])
+    foorth_equal('"abcDEF"* .to_lower .mutable?', [false])
+    foorth_equal('"abcDEF"  .to_lower .class',  [String])
+    foorth_equal('"abcDEF"* .to_lower .class',  [String])
+
+    foorth_raises('"abcDEF" .to_lower*')
+    foorth_equal('"abcDEF"* dup .to_lower*', ['abcdef'])
+    foorth_equal('"abcDEF"* dup .to_lower* .mutable?', [true])
+    foorth_equal('"abcDEF"* dup .to_lower* .class', [StringBuffer])
   end
 
   def test_reversing
-    foorth_equal('"stressed" .reverse',  ['desserts'])
+    foorth_equal('"stressed"  .reverse ', ['desserts'])
+    foorth_equal('"stressed"* .reverse ', ['desserts'])
+    foorth_equal('"stressed"  .reverse .mutable?', [false])
+    foorth_equal('"stressed"* .reverse .mutable?', [false])
+    foorth_equal('"stressed"  .reverse .class',  [String])
+    foorth_equal('"stressed"* .reverse .class',  [String])
+
+    foorth_raises('"stressed" .reverse*')
+    foorth_equal('"stressed"* dup .reverse* ', ['desserts'])
+    foorth_equal('"stressed"* dup .reverse* .mutable?', [true])
+    foorth_equal('"stressed"* dup .reverse* .class', [StringBuffer])
   end
 
   def test_the_each
     foorth_equal('"abc" .each{{ v x 1+ * }} ', ['a', 'bb', 'ccc'])
+    foorth_equal('"abc" .each{{ v .mutable? }} ', [false, false, false])
   end
 
   def test_calling_a_string
@@ -212,6 +500,8 @@ class StringLibraryTester < Minitest::Test
     s = "\"'quote' 'silly' \\\"un quote\\\" 'a \\\\'' \" p\"%q %*q %q %q\"  "
     foorth_equal(s, [["quote", "un quote", "a '"]])
     foorth_equal('"a b c" p"%[a] %[b] %[c]"', [["a", "b", "c"]])
+
+    foorth_equal('"Hello World" p"%s %s" .map{{ v .mutable? }}', [[false, false]])
   end
 
 end