From 3f54a728718552801b5c786dc38d6540cfa360ab Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Mon, 19 Mar 2018 06:43:54 -0700 Subject: asm: return original object from disassemble function. * share/txr/stdlib/asm.tl (usr:disassemble): Return the object that was disassembled, rather than nil. This is useful in the listener: we can compile and disassemble something in one step, then have access to the compiled object via a listener variable. --- share/txr/stdlib/asm.tl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/share/txr/stdlib/asm.tl b/share/txr/stdlib/asm.tl index 6ebf03da..02221341 100644 --- a/share/txr/stdlib/asm.tl +++ b/share/txr/stdlib/asm.tl @@ -678,4 +678,5 @@ (vm-desc-datavec obj) (vm-desc-funvec obj) stream)) - (t (error "~s: not a compiled object: ~s" 'vm-disassemble obj)))) + (t (error "~s: not a compiled object: ~s" 'vm-disassemble obj))) + obj) -- cgit v1.2.3