fix program grammar

svn: r9017

collects/scribblings/htdp-langs/advanced.scrbl

@@ -37,7 +37,7 @@
 @schemegrammar*+qq[
 #:literals (define define-struct lambda cond else if and or empty true false require lib planet
             local let let* letrec time begin begin0 set! delay shared recur when case unless)
-[program def-or-expr]
+[program (code:line def-or-expr ...)]
 [def-or-expr definition
              expr
              library-require]

collects/scribblings/htdp-langs/beginner-abbr.scrbl

@@ -23,7 +23,7 @@
 
 @schemegrammar*+qq[
 #:literals (define define-struct lambda cond else if and or empty true false require lib planet)
-[program def-or-expr]
+[program (code:line def-or-expr ...)]
 [def-or-expr definition
              expr
              library-require]

collects/scribblings/htdp-langs/beginner.scrbl

@@ -11,7 +11,7 @@
 
 @schemegrammar*+library[
 #:literals (define define-struct lambda cond else if and or empty true false require lib planet)
-[program def-or-expr]
+[program (code:line def-or-expr ...)]
 [def-or-expr definition
              expr
              library-require]

collects/scribblings/htdp-langs/intermediate-lambda.scrbl

@@ -36,7 +36,7 @@
 @schemegrammar*+qq[
 #:literals (define define-struct lambda cond else if and or empty true false require lib planet
             local let let* letrec time)
-[program def-or-expr]
+[program (code:line def-or-expr ...)]
 [def-or-expr definition
              expr
              library-require]

collects/scribblings/htdp-langs/intermediate.scrbl

@@ -23,7 +23,7 @@
 @schemegrammar*+qq[
 #:literals (define define-struct lambda cond else if and or empty true false require lib planet
             local let let* letrec time)
-[program def-or-expr]
+[program (code:line def-or-expr ...)]
 [def-or-expr definition
              expr
              library-require]