rubymotionlisp 1.0.0 → 1.0.1

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: 4a5e0c6cc93b15753596a1b9aa0c822b0b68c6a3
-  data.tar.gz: 00eee04b22a3f97fed1247ccfd648344e52be820
+  metadata.gz: b3074241e3075cf4d98eec6369b5cbd3bb058cbf
+  data.tar.gz: 72d9f6f5bf0f315c633cbfd4d699859754d10baa
 SHA512:
-  metadata.gz: 9c4ff7a0acfd6600aaf14a59d7a4ed1f3d44bf159f5058e0314637e475acfff5cef39dd2749d3f1f4ea33109d6bab6232762f5b8e7b29a81883b4afef893892e
-  data.tar.gz: 4bcdc3a7c9b7af440ffe8c563c8e422b5e63724189b873eb0e39d12b4647332550349c67494e0892ace064bb67fd1856280713fb6612eceb0e0570af53d62850
+  metadata.gz: a76c421a87391c26b343dcc197edc8d927e091155364b56d2c6a31ce9f867ba3b718f833d42971df623d7f97d74b3d9830c7197b32abdd3a1e3cfcf3f891ad2f
+  data.tar.gz: bb78a4223e8466102a327fb5b0edf5ca901e6d9e7cb1dcdf3d41f3c0fc645dcb6a5a3876956a31bf0e40bdb67505aa4cf92b374e326221ead929025aa8fddec6

data/lib/rubylisp/cons_cell.rb

@@ -187,11 +187,12 @@ module Lisp
     end
 
     def traverse(path)
-      return self if path.empty?
-      next_cell = (path[0] == ?a) ? @car : @cdr
-      return next_cell if path.length == 1
-      return nil if next_cell.nil?  || !next_cell.pair?
-      next_cell.traverse(path[1..-1])
+      next_cell = self
+      path.chars.each do |p|
+        return nil if next_cell.nil?  || !next_cell.pair?
+        next_cell = ((p == ?a) ? next_cell.car : next_cell.cdr)
+      end
+      next_cell
     end
 
     def method_missing(name, *args, &block)

data/lib/rubylisp/environment_frame.rb

@@ -3,7 +3,7 @@ module Lisp
   class EnvironmentFrame
 
     attr_accessor :frame, :current_code, :previous, :name
-    attr_reader :parent
+    attr_reader :parent, :project_environment
     
     def self.global
       @@global_frame ||= EnvironmentFrame.new(nil, "GLOBAL")
@@ -25,6 +25,13 @@ module Lisp
       @current_code = []
     end
 
+
+    def clear
+      TopLevelEnvironments[@name] = nil if TopLevelEnvironments.has_key?(@name)
+      @bindings.keys.each {|k| @bindings[k] = nil}
+    end
+    
+
     def has_frame?
       !@frame.nil?
     end

data/lib/rubylisp/prim_special_forms.rb

@@ -176,7 +176,7 @@ module Lisp
           return Lisp::Debug.process_error("Case requires non-atomic clauses", env)
         end
       end
-      return nil
+      nil
     end
 
 

data/lib/rubylisp/tokenizer.rb

@@ -296,7 +296,7 @@ module Lisp
           advance
         end
       else
-        return :ILLEGAL, ''
+        return :ILLEGAL, @current_ch
       end
     end
 

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: rubymotionlisp
 version: !ruby/object:Gem::Version
-  version: 1.0.0
+  version: 1.0.1
 platform: ruby
 authors:
 - Dave Astels