From 18bd437e3f42dbad802fee077b387c0827970cf9 Mon Sep 17 00:00:00 2001
From: Phil Dawes <phil@phildawes.net>
Date: Wed, 7 Oct 2009 19:18:29 +0100
Subject: [PATCH] disassemble can handle anonymous quotations

---
 basis/tools/disassembler/disassembler.factor | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/basis/tools/disassembler/disassembler.factor b/basis/tools/disassembler/disassembler.factor
index 16408c0eb8..4aec909e88 100755
--- 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" ?
-- 
2.34.1