1 type symbol
= string ;;
10 | Quotation
of scheme_object
11 | ProperList
of scheme_object list
12 | ImproperList
of (scheme_object list
) * scheme_object
13 | Closure
of scheme_object
* scheme_environment
* (symbol list
)
14 | Builtin
of ((scheme_object list
) -> (scheme_object
option))
15 | Continuation
of scheme_environment
* (scheme_object list
) * (scheme_object list list
)
18 | Cond
of (scheme_object
* scheme_object
)
22 environment_frame
= (string, scheme_object
) Hashtbl.t
24 scheme_environment
= environment_frame list
27 exception Scheme_cast_error
;;
28 exception Scheme_eval_error
of string;;
29 exception Scheme_user_error
of scheme_object list
;;
