TODO: freeze everything

TODO

@@ -34,7 +34,7 @@ core lang
 - symbols should have two distinct parts: ns, name
 - multi-form defn: (defn x ([a] ...) ([a b] ...))
 - seqs
-  - atoms, refs, agents
+- atoms (actually multithreaded), refs, agents
 - freeze vectors, lists where approriate
 - (. x y)
 - destructuring (in FN, LET, everywhere else)

lib/boot.rg

@@ -209,7 +209,7 @@
 
 (defmacro testing [what & tests]
   `(do
-     (when (= 0 *test-level*)
+     (when (= [] *test-level*)
        (puts))
      (puts (* " " (count *test-level*) 2) "testing: " ~what)
      (binding [*test-level* (conj *test-level* ~what)]

spec/reader_spec.rb

@@ -64,6 +64,10 @@
       Rouge.read("\"\\a\\b\\e\\f\\n\\r\"").should eq "\a\b\e\f\n\r"
       Rouge.read("\"\\s\\t\\v\"").should eq "\s\t\v"
     end
+
+    it "should read strings as frozen" do
+      Rouge.read("\"bah\"").frozen?.should be_true
+    end
   end
 
   describe "lists" do