Commit 39db6729 authored by Pietro Abate's avatar Pietro Abate
Browse files

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

Original author: cvscast
Date: 2003-07-30 13:53:12+00:00
parent b72ae671
......@@ -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 *)
;;
......
......@@ -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 *)
;;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment