@@ -61,7 +61,7 @@ serializeBC n bc = indent n ++
6161 STOREOLD -> "STOREOLD"
6262 OP a b c ->
6363 "OP " ++ serializeReg a ++ " " ++ show b ++ " [" ++ interMap c ", " serializeReg ++ "]"
64− NULL r -> "NULL " ++ show r
64+ NULL r -> "NULL " ++ serializeReg r
6565 ERROR s -> "ERROR \"" ++ s ++ "\"" -- FIXME: s may contain quotes
6666
6767serialize :: [(Name, [BC])] -> String