diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2018-03-19 06:43:54 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2018-03-19 06:43:54 -0700 |
| commit | 3f54a728718552801b5c786dc38d6540cfa360ab (patch) | |
| tree | d6584e30f0963166903c386f2c30dcc349a116a2 | |
| parent | 72a1963588dfc53c2eb11e4d488bfd3e6951477d (diff) | |
| download | txr-3f54a728718552801b5c786dc38d6540cfa360ab.tar.gz txr-3f54a728718552801b5c786dc38d6540cfa360ab.tar.bz2 txr-3f54a728718552801b5c786dc38d6540cfa360ab.zip | |
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.
| -rw-r--r-- | share/txr/stdlib/asm.tl | 3 |
1 files changed, 2 insertions, 1 deletions
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) |