[r2003-07-30 13:53:12 by cvscast] Empty log message

Original author: cvscast
Date: 2003-07-30 13:53:12+00:00

driver/examples.ml

@@ -367,10 +367,11 @@ let fun push(x : Int) : []  =
 let fun pop ([] : []) : Int = 
   match !stack with [x ; y] -> stack := y; x | _ -> raise \"Empty stack\"
 
-(* In a pattern [ ... ; y] the variable y captures the tail of the *)
-(* sequence. It is equivalent to [ ... y::_*].                     *)
-(* In an expression [ ... ; e ] the expression e denotes the tail  *)
-(* of the sequence. It is equivalent to [ ... ] @ e                *)
+
+(* In a pattern [ ... ; y] the variable y captures the tail  *)
+(* of the sequence. It is equivalent to [ ... y::_*].        *)
+(* In an expression [ ... ; e ] the expression e denotes the *)
+(* tail of the sequence. It is equivalent to [ ... ] @ e     *)
 
 ;;
 

web/examples/reference.cd

@@ -14,10 +14,10 @@ let fun pop ([] : []) : Int =
   match !stack with [x; y] -> stack := y; x | _ -> raise "Empty stack"
 
 
-(* In a pattern [ ... ; y] the variable y captures the tail of the *)
-(* sequence. It is equivalent to [ ... y::_*].                     *)
-(* In an expression [ ... ; e ] the expression e denotes the tail  *)
-(* of the sequence. It is equivalent to [ ... ] @ e                *)
+(* In a pattern [ ... ; y] the variable y captures the tail  *)
+(* of the sequence. It is equivalent to [ ... y::_*].        *)
+(* In an expression [ ... ; e ] the expression e denotes the *)
+(* tail of the sequence. It is equivalent to [ ... ] @ e     *)
 
 
 ;;