From 26e69c946940766d6c9c4e71fd1f9dd778b75d91 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Thu, 15 May 2008 13:03:47 +0200
Subject: [PATCH] remove some debugging info

* module/system/vm/assemble.scm: remove a pk
---
 module/system/vm/assemble.scm | 1 -
 1 file changed, 1 deletion(-)

diff --git a/module/system/vm/assemble.scm b/module/system/vm/assemble.scm
index bcc7ab096..19e633b82 100644
--- a/module/system/vm/assemble.scm
+++ b/module/system/vm/assemble.scm
@@ -147,7 +147,6 @@
 		     (push-code! `(external-set ,(+ n index)))))))
 
 	   ((<glil-module> op module name)
-            (pk op module name)
             (case op
               ((ref)
                (push-object! (make-vlink :module module :name name))