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

Subject: [Boost-commit] svn:boost r61250 - trunk/libs/spirit/example/scheme/test
From: joel_at_[hidden]
Date: 2010-04-13 12:10:00

Author: djowel
Date: 2010-04-13 12:09:59 EDT (Tue, 13 Apr 2010)
New Revision: 61250
URL: http://svn.boost.org/trac/boost/changeset/61250

Log:
+ lambda working
+ fix to sexpr symbol matching
+ workaround to iterator_range bug
Text files modified: 
   trunk/libs/spirit/example/scheme/test/scheme_test.scm |     9 ++++++---                               
   1 files changed, 6 insertions(+), 3 deletions(-)

Modified: trunk/libs/spirit/example/scheme/test/scheme_test.scm
==============================================================================
--- trunk/libs/spirit/example/scheme/test/scheme_test.scm	(original)
+++ trunk/libs/spirit/example/scheme/test/scheme_test.scm	2010-04-13 12:09:59 EDT (Tue, 13 Apr 2010)
@@ -1,3 +1,6 @@
+; These tests demostrate the functionality of the scheme
+; compiler/interpreter
+
 (define (dbl x) (+ x x))
 
 (define len 123)
@@ -6,8 +9,8 @@
 
 ; The hello-world for interpreters ;-)
 (define (factorial n)
-    (if (<= n 0) 1
-        (* n (factorial (- n 1)))))
+  (if (<= n 0) 1
+    (* n (factorial (- n 1)))))
 
 (factorial 10) ; 3628800
 
@@ -18,4 +21,4 @@
         n
         (+ (fib (- n 1)) (fib (- n 2))))))
 
-(fib 10)
\ No newline at end of file
+(fib 10) ; 55
\ No newline at end of file