fix interpreter to output symbols

which amazingly lets us get at classnames etc

lib/risc/interpreter.rb

@@ -158,8 +158,13 @@ module Risc
       end
       case object
       when Symbol
-        raise "Must convert symbol to word:#{object}" unless( index == 2 )
+        if(index == 0)
-        value = object.to_s.length
+          value = object.get_type
+        elsif(index==1)
+          value = object.to_s.length
+        else
+          raise "Must convert symbol to word:#{object}:#{index}"
+        end
       when nil
         raise "error #{@instruction} retrieves nil"
       else

test/mains/source/classname_Space_5.rb

@@ -0,0 +1,18 @@
+class Class
+  def name
+    @name
+  end
+end
+class Type
+  def name
+    @object_class.name
+  end
+end
+class Space
+  def type
+    @type
+  end
+  def main(arg)
+    type.name.putstring
+  end
+end

test/mains/test_new.rb

@@ -16,21 +16,19 @@ module Mains
 
     def whole_input
       <<-eos
-        class Space
+        class Class
-          def times
+          def get_name
-            n = 5
+            @name
-            i = 0
-            while( i < 5 )
-              yield
-              i = i + 1
-            end
-            return 1
           end
+        end
+        class Type
+          def get_name
+            @object_class.get_name
+          end
+        end
+        class Space
           def main(arg)
-            times{
+            @type.get_name.putstring
-              "1".putstring
-            }
-            return 4
           end
         end
       eos
@@ -43,8 +41,8 @@ module Mains
     def test_chain
       run_all
       assert_equal ::Integer , get_return.class , " "
-      assert_equal 4 , get_return , " "
+      #assert_equal 4 , get_return , " "
-      assert_equal "11111" , @interpreter.stdout
+      assert_equal "hi" , @interpreter.stdout
     end
 
   end

test/parfait/test_object.rb

@@ -17,7 +17,7 @@ module Parfait
     end
 
     def test_type
-      assert_equal "Parfait::Type" ,  @object.get_internal_word( 0 ).class.name
+      assert_equal ::Parfait::Type ,  @object.get_internal_word( 0 ).class
     end
   end
 end