From 7b3c8ad97b41a724203242bb4073d74a44dc6804 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Mon, 8 May 2017 21:39:00 -0700 Subject: ffi: improve printed representation of closures. * ffi.c (ffi_closure_print_op): Add information to the printed representation: the Lisp function, and call desc. Eliminate spurious # character before closing angle bracket. --- ffi.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/ffi.c b/ffi.c index 131801f3..87b6908c 100644 --- a/ffi.c +++ b/ffi.c @@ -201,9 +201,10 @@ static struct txr_ffi_closure *ffi_closure_struct_checked(val obj) static void ffi_closure_print_op(val obj, val out, val pretty, struct strm_ctx *ctx) { + struct txr_ffi_closure *tfcl = ffi_closure_struct(obj); put_string(lit("#<"), out); obj_print_impl(obj->co.cls, out, pretty, ctx); - put_string(lit("#>"), out); + format(out, lit(" ~s ~s>"), tfcl->fun, tfcl->call_desc, nao); } static void ffi_closure_destroy_op(val obj) -- cgit v1.2.3