sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>
On This Page
Run-time support for objects and classes. All functions in this module are for system use only, not for the casual user.
val public_method_label : string -> tag
val new_variable : table -> string -> int
val get_variable : table -> string -> int
val get_variables : table -> string array -> int array
val narrow : table -> string array -> string array -> string array -> unit
val widen : table -> unit
val dummy_table : table
val create_table : string array -> table
val init_class : table -> unit
val make_class_store : string array -> (table -> t) -> init_table -> unit
type impl =
| GetConst
| GetVar
| GetEnv
| GetMeth
| SetVar
| AppConst
| AppVar
| AppEnv
| AppMeth
| AppConstConst
| AppConstVar
| AppConstEnv
| AppConstMeth
| AppVarConst
| AppEnvConst
| AppMethConst
| MethAppConst
| MethAppVar
| MethAppEnv
| MethAppMeth
| SendConst
| SendVar
| SendEnv
| SendMeth
| Closure of closure
val params : params
val stats : unit -> stats