[Boost-commit] svn:boost r61450 - in trunk/libs/spirit/example/scheme: example/scheme scheme test/scheme

Subject: [Boost-commit] svn:boost r61450 - in trunk/libs/spirit/example/scheme: example/scheme scheme test/scheme
From: joel_at_[hidden]
Date: 2010-04-21 03:30:18

Author: djowel
Date: 2010-04-21 03:30:15 EDT (Wed, 21 Apr 2010)
New Revision: 61450
URL: http://svn.boost.org/trac/boost/changeset/61450

Log:
moving files
Added:
   trunk/libs/spirit/example/scheme/example/scheme/scheme_error.scm   (contents, props changed)
Removed:
   trunk/libs/spirit/example/scheme/test/scheme/scheme_error.scm
Text files modified: 
   trunk/libs/spirit/example/scheme/scheme/interpreter.hpp |     6 ++++++                                  
   1 files changed, 6 insertions(+), 0 deletions(-)

Added: trunk/libs/spirit/example/scheme/example/scheme/scheme_error.scm
==============================================================================
--- (empty file)
+++ trunk/libs/spirit/example/scheme/example/scheme/scheme_error.scm	2010-04-21 03:30:15 EDT (Wed, 21 Apr 2010)
@@ -0,0 +1,21 @@
+blah ; blah not found
+
+(define
+  (foo x)
+    (+ x 456))
+
+(define
+  (bar x)
+    (+ x y)) ; y not found
+
+(foo 123)
+(foo z) ; z not found
+
+(define foo 123) ; redefinition
+
+(foo 123 456) ; incorrect arity
+
+(bar 999) ; bar should not be found
+
+
+

Modified: trunk/libs/spirit/example/scheme/scheme/interpreter.hpp
==============================================================================
--- trunk/libs/spirit/example/scheme/scheme/interpreter.hpp	(original)
+++ trunk/libs/spirit/example/scheme/scheme/interpreter.hpp	2010-04-21 03:30:15 EDT (Wed, 21 Apr 2010)
@@ -90,6 +90,12 @@
         function()
           : f() {}
 
+        function(utree const& f)
+          : f(f)
+        {
+            BOOST_ASSERT(!empty());
+        }
+
         template <typename F>
         function(F const& f)
           : f(polymorphic_function<F>(f))

Deleted: trunk/libs/spirit/example/scheme/test/scheme/scheme_error.scm
==============================================================================
--- trunk/libs/spirit/example/scheme/test/scheme/scheme_error.scm	2010-04-21 03:30:15 EDT (Wed, 21 Apr 2010)
+++ (empty file)
@@ -1,21 +0,0 @@
-blah ; blah not found
-
-(define
-  (foo x)
-    (+ x 456))
-
-(define
-  (bar x)
-    (+ x y)) ; y not found
-
-(foo 123)
-(foo z) ; z not found
-
-(define foo 123) ; redefinition
-
-(foo 123 456) ; incorrect arity
-
-(bar 999) ; bar should not be found
-
-
-