disassemble can handle anonymous quotations

diff --git a/basis/tools/disassembler/disassembler.factor b/basis/tools/disassembler/disassembler.factor
index 16408c0eb8b9f43e99dff60fccee5e1bf3049c9c..4aec909e883966f4ad2b48b329a73818053f7357 100755 (executable)
--- a/basis/tools/disassembler/disassembler.factor
+++ b/basis/tools/disassembler/disassembler.factor
@@ -1,8 +1,8 @@
 ! Copyright (C) 2008 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: alien alien.c-types arrays byte-arrays combinators
-destructors generic io kernel libc math sequences system tr
-vocabs.loader words alien.data ;
+USING: alien alien.data arrays byte-arrays compiler.units destructors
+io kernel libc math quotations sequences stack-checker system tr
+vocabs.loader words ;
 IN: tools.disassembler
 
 GENERIC: disassemble ( obj -- )
@@ -24,6 +24,8 @@ M: pair disassemble first2 disassemble* [ tabs>spaces print ] each ;
 
 M: word disassemble word-xt 2array disassemble ;
 
+M: quotation disassemble [ dup infer define-temp ] with-compilation-unit disassemble ;
+
 cpu x86?
 "tools.disassembler.udis"
 "tools.disassembler.gdb" ?