shen-ruby 0.13.0 → 0.14.0

data/shen/release/test_programs/bubble_version_2.shen

@@ -1,5 +1,5 @@
 (define bubble-sort 
-  X -> (fix bubble X)) 
+  X -> (fix (function bubble) X)) 
 
 (define bubble 
   [] -> []  

data/shen/release/test_programs/depth_.shen

@@ -6,7 +6,7 @@
   {(list A) --> (A --> (list A)) --> (A --> boolean) --> (A --> boolean) --> (list A) --> (list A)}
   [State | _] _ Goal? _ Path -> (reverse [State | Path]) 	where (Goal? State)
   [State | _] _ _ Fail? _ -> [] 				where (Fail? State)
-  [State | _] Successors Goal? Fail? Path <- (fail-if empty? 
+  [State | _] Successors Goal? Fail? Path <- (fail-if (function empty?) 
                                                       (depth-help' (Successors State) 
                                                                    Successors Goal? Fail? [State | Path]))
   [_ | States] Successors Goal? Fail? Path -> (depth-help' States Successors Goal? Fail? Path)

data/shen/release/test_programs/interpreter.shen

@@ -101,7 +101,7 @@
 
 (define normal_form
   {l_formula --> l_formula}
-   X -> (fix ==>> X))                 
+   X -> (fix (function ==>>) X))                 
     
 (define ==>>
    {l_formula --> l_formula}

data/shen/release/test_programs/metaprog.shen

@@ -48,7 +48,7 @@
 
 (define generate_code_for_nonlex
   Rules -> (eval (append [define (get_characteristic_non_terminal Rules) 
-                                   | (mapapp gcfn_help Rules)] 
+                                   | (mapapp (function gcfn_help) Rules)] 
                          [(protect X) -> [fail]])))
 
 (define mapapp

data/shen/release/test_programs/semantic_net.shen

@@ -2,7 +2,7 @@
   [is Object Concept] -> (if (belongs? Object Concept) yes no))
 
 (define belongs?  
-  Object Concept -> (element? Concept (fix spread-activation [Object])))
+  Object Concept -> (element? Concept (fix (function spread-activation) [Object])))
 
 (define spread-activation  
   [] -> [] 

data/shen/release/test_programs/tests.shen

@@ -161,18 +161,18 @@
     
  (report "yacc"
    (load "yacc.shen") loaded
-   (compile <sent> [the cat likes the dog]) [the cat likes the dog]
-   (compile <sent> [the cat likes the canary] (/. E (fail))) (fail)
-   (compile <asbscs> [a a a b b c])  [a a a b b c]
-   (compile <find-digit> [a v f g 6 y u]) [6]
-   (compile <vp> [chases the cat]) [chases the cat]
-   (compile <des> [[d] [e e]]) [d e e]
-   (compile <sent'> [the cat likes the dog]) [is it true that your father likes the dog ?]
-   (compile <as> [a a a]) [a a a]
-   (compile <find-digit'> [a v f g 6 y u]) [6 y u]
-   (compile <asbs'cs> [a v f g 6 y u] (/. E (fail))) (fail)
-   (compile <find-digit''> [a v f g 6 y u]) 6
-   (compile <anbncn> [a a a b b b c c c]) [a a a b b b c c c] )
+   (compile (function <sent>) [the cat likes the dog]) [the cat likes the dog]
+   (compile (function <sent>) [the cat likes the canary] (/. E (fail))) (fail)
+   (compile (function <asbscs>) [a a a b b c])  [a a a b b c]
+   (compile (function <find-digit>) [a v f g 6 y u]) [6]
+   (compile (function <vp>) [chases the cat]) [chases the cat]
+   (compile (function <des>) [[d] [e e]]) [d e e]
+   (compile (function <sent'>) [the cat likes the dog]) [is it true that your father likes the dog ?]
+   (compile (function <as>) [a a a]) [a a a]
+   (compile (function <find-digit'>) [a v f g 6 y u]) [6 y u]
+   (compile (function <asbs'cs>) [a v f g 6 y u] (/. E (fail))) (fail)
+   (compile (function <find-digit''>) [a v f g 6 y u]) 6
+   (compile (function <anbncn>) [a a a b b b c c c]) [a a a b b b c c c] )
       
 (preclude-all-but [])    
 (tc +)       

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: shen-ruby
 version: !ruby/object:Gem::Version
-  version: 0.13.0
+  version: 0.14.0
 platform: ruby
 authors:
 - Greg Spurrier
@@ -9,7 +9,7 @@ authors:
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2015-02-03 00:00:00.000000000 Z
+date: 2015-02-25 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: klam
@@ -17,14 +17,14 @@ dependencies:
     requirements:
     - - '='
       - !ruby/object:Gem::Version
-        version: 0.0.6
+        version: 0.0.7
   type: :runtime
   prerelease: false
   version_requirements: !ruby/object:Gem::Requirement
     requirements:
     - - '='
       - !ruby/object:Gem::Version
-        version: 0.0.6
+        version: 0.0.7
 - !ruby/object:Gem::Dependency
   name: rake
   requirement: !ruby/object:Gem::Requirement
@@ -66,7 +66,7 @@ dependencies:
       - !ruby/object:Gem::Version
         version: 3.1.0
 description: ShenRuby is a port of the Shen programming language to Ruby. It currently
-  supports Shen version 17.
+  supports Shen version 17.2.
 email:
 - greg@sourcematters.org
 executables: