rubymotionlisp 1.0.9 → 1.0.10

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: 0651f5a21b9eef38abe56e63192088deccc8bb45
-  data.tar.gz: 955912fc8020349b60cb610d3787a2b9e524a037
+  metadata.gz: 8ceec9aeb2b9c29d409955a0a86915279a462646
+  data.tar.gz: 1307407e5c0f05862569bb49e3ef9d94634bc671
 SHA512:
-  metadata.gz: 61f5ebb8c719ef8a253a266533824bb013bf7dcfa470b8bf9783ac287771f23dd0b41231105c1ded889de05323031f633dd157e4cdd3aaead7369b489540e1a3
-  data.tar.gz: 775c7504c2579963d97fe3edf6cba8dc2979293446bcde19d6b9640767b01426e60c2a5e480c17792dbf6658556dcca7642c9c5a916cc1e2ae96771cf4f37a24
+  metadata.gz: 1ebd489f0fdf496383a27ca4157ad733475eefd3725297b721f62db79104b8095f21b67e333704a7403dba63549ca7586a811bc59753880d8d32c95cf5ee50c1
+  data.tar.gz: b668ce7d3126fde12668c99a84346d42604e71a081839da851e40f85c3d8a9e9b53d0fbb0d3550adfb1c8690f427a5ced5945b36a9ec1ceb35f32126bcdeebc3

data/lib/rubylisp/prim_io.rb

@@ -22,6 +22,11 @@ module Lisp
    end
 
 
+    def self.output_to_stdout(to_output)
+      $stdout.write(to_output)
+    end
+      
+
     def self.load_impl(args, env)
       fname = args.car
       return Lisp::Debug.process_error("'load' requires a string argument.", env) unless fname.string?
@@ -64,11 +69,11 @@ module Lisp
         p = args.cadr
         return Lisp::Debug.process_error("'write-string' requires a port as it's second argument.", env) unless p.port?
         port = p.value
+        port.write(s.value)
       else
-        port = $stdout
+        self.output_to_stdout(s.value)
       end
 
-      port.write(s.value)
     end
 
     
@@ -77,11 +82,11 @@ module Lisp
         p = args.car
         return Lisp::Debug.process_error("'newline' requires a port as it's argument.", env) unless p.port?
         port = p.value
+        port.write("\n")
       else
-        port = $stdout
+        self.output_to_stdout("\n")
       end
 
-      port.write("\n")
     end
 
     
@@ -90,11 +95,11 @@ module Lisp
         p = args.cadr
         return Lisp::Debug.process_error("'write' requires a port as it's second argument.", env) unless p.port?
         port = p.value
+        port.write(args.car.print_string)
       else
-        port = $stdout
+        self.output_to_stdout(args.car.print_string)
       end
 
-      port.write(args.car.print_string)
     end
 
     
@@ -210,7 +215,7 @@ module Lisp
       if destination.port?
         destination.value.write(combined_string)
       elsif destination.value
-        $stdout.write(combined_string)
+        self.output_to_stdout(combined_string)
       else
         return Lisp::String.with_value(combined_string)
       end

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: rubymotionlisp
 version: !ruby/object:Gem::Version
-  version: 1.0.9
+  version: 1.0.10
 platform: ruby
 authors:
 - Dave Astels
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2016-01-14 00:00:00.000000000 Z
+date: 2016-01-20 00:00:00.000000000 Z
 dependencies: []
 description: An embeddable Lisp as an extension language for RubyMotion
 email: dastels@icloud.com