rubymotionlisp 1.0.14 → 1.0.15

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: 5de6ce4210bcf029285a399dcdcbfcbfb9e694b0
-  data.tar.gz: aa4cf373497533635555b76d401d197dad8ab060
+  metadata.gz: 5f4b3c67bd17bef8f796339dc765433d67f2ff36
+  data.tar.gz: 6ab82bc4182d5a848b35e08b4e1210429e2a9853
 SHA512:
-  metadata.gz: ad066de387e6c61c70e5b27e3022f4690a6673aba8bc42f8323618d2d6b6f7f423fdc8b244973bc06d8528a29e6670ee8544c2b3f6a72f924f39213f081272c8
-  data.tar.gz: d7b568d0fdbc79539e9dbc91c380a4defd3e5bef226a2433728519c4f1702d77f5d7ead5b6c12d78796717b1f5fae95067cd1d51259c0ac6ebcc00950e552d3d
+  metadata.gz: f8ca375acf30e6c696a633b1441c33e1dcd2d68086776265ac6a541fb7e707084610c8f9b72d8eca42118ff5ad5462fcd6b1fe2e57b44417c8086802ab7a6160
+  data.tar.gz: aac24396c6730c0ed536ea1ab9a3eb27c88ab4b09ee53d5c98a4ad8be933f9a78bdb7aa274ae5a0d03900755f18bc2f6bbf2e4a7aac8d66d7a65e8875eb1cd01

data/lib/rubylisp/cons_cell.rb

@@ -226,7 +226,7 @@ module Lisp
 
 
     def push_current_code
-      env.current_code.unshift(self.print_string)
+      env.push_code(self.print_string)
     end
     
 
@@ -247,7 +247,7 @@ module Lisp
       end
 
       result = func.apply_to(@cdr, env)
-      env.current_code.shift() if !Lisp::Debug.eval_in_debug_repl && Lisp::Debug.interactive
+      env.pop_code if !Lisp::Debug.eval_in_debug_repl && Lisp::Debug.interactive
       Lisp::Debug.log_result(result, env)
       result
     end

data/lib/rubylisp/environment_frame.rb

@@ -35,6 +35,30 @@ module Lisp
     def has_frame?
       !@frame.nil?
     end
+
+
+    # --------------------------------------------------------------------------------
+    # Exaling code management
+
+    def push_code(code)
+      @current_code.push(code)
+    end
+
+
+    def pop_code
+      @current_code.pop
+    end
+
+
+    def top_code
+      @current_code[-1]
+    end
+
+
+    def has_code?
+      !@current_code.empty?
+    end
+    
     
     # Bindings following parent env frame pointer
 

metadata

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