Changeset 27406 in project

Timestamp:

09/11/12 04:24:51 (8 years ago)

Author:

Alan Post

Message:

jbogenturfa'i: add code for statement terminal in grammar.

split out statement, statement-prenex, fill in arguments for each.

Location:

release/4/jbogenturfahi/trunk

Files:

• chicken-ext-jbogensamselpla.scm (modified) (1 diff)
• gerna.peg (modified) (1 diff)
• samselpla.scm (modified) (1 diff)

release/4/jbogenturfahi/trunk/chicken-ext-jbogensamselpla.scm

@@ -235 +235 @@
    paragraph
    statement
+   statement-prenex
    statement-1
    statement-2

release/4/jbogenturfahi/trunk/gerna.peg

@@ -57 +57 @@
           -> statement
            / prenex statement
-          -> statement
+          -> statement-prenex
 
 statement-1 <- statement-2 ( I-clause joik-jek statement-2? )*

release/4/jbogenturfahi/trunk/samselpla.scm

@@ -799 +799 @@
   `((paragraph ,@statement-or-fragment ,@(map-apply I I-clause*))))
 
-(define (statement . rodasumti)
-  rodasumti)
+(define (statement statement-1)
+  `(,statement-1))
+
+(define (statement-prenex prenex statement-1)
+  `(,prenex ,statement-1))
 
 (define (statement-1 statement-2 I-clause*)