[r2003-07-06 18:37:58 by cvscast] Bug fix...

Original author: cvscast
Date: 2003-07-06 18:37:58+00:00

runtime/run_dispatch.ml

@@ -201,6 +201,7 @@ and run_disp_record other v fields = function
       in
       aux other fields
   | Some (RecNolabel (some,none)) ->
+      let other = other || (fields != []) in
       let r = if other then some else none in
       match r with
 	| Some r -> make_result_basic v r

web/site.cd

@@ -54,7 +54,7 @@ type Content =
 
 type InlineText =
      Char
-   | <(`b|`i|`tt|`em) {||}>[InlineText*]
+   | <(`b|`i|`tt|`em) {| style=?String |}>[InlineText*]
    | <code>String
    | <local href=String>String
    | Xa | Ximg | Xbr