[Boost-commit] svn:boost r61394 - in trunk/libs/spirit/example/scheme: . scheme

Subject: [Boost-commit] svn:boost r61394 - in trunk/libs/spirit/example/scheme: . scheme
From: joel_at_[hidden]
Date: 2010-04-19 00:36:40

Author: djowel
Date: 2010-04-19 00:36:38 EDT (Mon, 19 Apr 2010)
New Revision: 61394
URL: http://svn.boost.org/trac/boost/changeset/61394

Log:
more error handling
Text files modified: 
   trunk/libs/spirit/example/scheme/scheme/compiler.hpp |     6 ++++++                                  
   trunk/libs/spirit/example/scheme/todo.txt            |     1 +                                       
   2 files changed, 7 insertions(+), 0 deletions(-)

Modified: trunk/libs/spirit/example/scheme/scheme/compiler.hpp
==============================================================================
--- trunk/libs/spirit/example/scheme/scheme/compiler.hpp	(original)
+++ trunk/libs/spirit/example/scheme/scheme/compiler.hpp	2010-04-19 00:36:38 EDT (Mon, 19 Apr 2010)
@@ -232,6 +232,12 @@
         {
             std::string name(get_symbol(*range.begin()));
 
+            if (name == "quote")
+            {
+                Iterator i = range.begin(); ++i;
+                return scheme::val(*i);
+            }
+
             if (name == "define")
             {
                 std::string fname;

Modified: trunk/libs/spirit/example/scheme/todo.txt
==============================================================================
--- trunk/libs/spirit/example/scheme/todo.txt	(original)
+++ trunk/libs/spirit/example/scheme/todo.txt	2010-04-19 00:36:38 EDT (Mon, 19 Apr 2010)
@@ -1,3 +1,4 @@
 Sexpr:
 - allow scheme-ish #t and #f
 - write parser and generator for binary on disk representation of sexpr
+- implement quote in sexpr grammar (e.g. 'sym '(1 2 3 4 5))