Changeset 27407 in project
- Timestamp:
- 09/11/12 04:25:03 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
release/4/jbogenturfahi/trunk/samselpla.scm
r27406 r27407 785 785 ;; ?-null handles + and *. 786 786 ;; 787 (define (paragraphs paragraph NIhO-clause+ free* su-clause* paragraphs )787 (define (paragraphs paragraph NIhO-clause+ free* su-clause* paragraphs-0) 788 788 `(paragraphs 789 789 ,@paragraph … … 791 791 ,@(?*-null free*) 792 792 ,@(?*-null su-clause*) 793 ,@(?*-null paragraphs )))793 ,@(?*-null paragraphs-0))) 794 794 795 795 (define (paragraph statement-or-fragment I-clause*) 796 796 (define (I I-clause free* statement-or-fragment?) 797 `(,@I-clause ,@(*-null free*) ,@(?-null statement-or-fragment?))) 797 ; 798 ; statement-or-fragment? uses ?*-null, rather than ?-null, 799 ; because an extra list is created in |statement|. This 800 ; normalizes it to the same list structure everywhere it 801 ; is used. 802 ; 803 `(,@I-clause ,@(*-null free*) ,@(?*-null statement-or-fragment?))) 798 804 799 805 `((paragraph ,@statement-or-fragment ,@(map-apply I I-clause*)))) … … 817 823 BO-clause? 818 824 free* 819 #!optional (statement-2? ""))825 statement-2?) 820 826 `(,@statement-3 821 827 ,@(?-null I-clause?) … … 1263 1269 `(,@NOI-clause 1264 1270 ,@(*-null free-0*) 1265 , @subsentence1271 ,subsentence 1266 1272 ,@(?-null KUhO-clause?) 1267 1273 ,@(*-null free-1*)))
Note: See TracChangeset
for help on using the changeset viewer.