Permalink
Browse files

[cleanup] libbsl: remove unused code.

  • Loading branch information...
arthuraa committed Aug 24, 2012
1 parent 0f1f033 commit 8e0807085df0cf85f8f7058294037e5176fe5fd4
Showing with 0 additions and 3 deletions.
  1. +0 −3 compiler/libbsl/bslLib.ml
@@ -487,9 +487,6 @@ struct
"%a\nBad typed %s [cps-bypass] must be of the form : ..., continuation(...) -> void" BslTypes.pp ty (BslKey.to_string key)
in
let rec uncps_type check def_type =
- let rec aux = function
- | BslTypes.OpaValue (_, t) -> aux t
- | t -> t in
match def_type with
| BslTypes.Fun (pos1, args, BslTypes.Void _) ->
let args, ret = List.split_at (List.length args - 1) args in

0 comments on commit 8e08070

Please sign in to comment.