From 69039499368c340d56dd69304c8acf36899c8f14 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Mon, 27 Jun 2016 21:25:02 -0700
Subject: [PATCH] modern.out: fix pixel word and arity of QUALIFIED:

---
 core/modern/out/out.factor | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/core/modern/out/out.factor b/core/modern/out/out.factor
index b93d83cae9..f163d1ce3f 100644
--- a/core/modern/out/out.factor
+++ b/core/modern/out/out.factor
@@ -58,10 +58,10 @@ CONSTANT: janky-arities H{
     `VECTORED-STRUCT 1 --
     `IMPORT 1 --
     `GIR 1 --
-    `PIXEL-FORMAT-ATTRIBUTE-TABLE 1 --
     `TEST 1 --
     `SELECTOR 1 --
     `SIMD-128 1 --
+    `QUALIFIED 1 --
 
     `ALIAS 2 --
     `ARITY 2 --
@@ -70,10 +70,11 @@ CONSTANT: janky-arities H{
     `INSTANCE 2 --
     `GENERIC 2 --
     `PRIMITIVE 2 --
-    `QUALIFIED 2 --
 
     `GENERIC# 3 --
+    `PIXEL-FORMAT-ATTRIBUTE-TABLE 3 --
     `HOOK 3
+
 } ;
 
 GENERIC: write-literal ( obj -- ) ;
@@ -288,7 +289,7 @@ M: object fixup-arity ;
             [ _ map-literals ] map
             [ fixup-arity ] map
         ] [ ] bi write-modern-path ]
-    [ drop . ] recover ; inline
+    [ B drop . ] recover ; inline
 
 : rewrite-string ( string quot -- )
     ! dup print