Fix prettyprinting of invalid curries and tuples

core/prettyprint/backend/backend.factor

@@ -185,6 +185,17 @@ M: tuple pprint-narrow? drop t ;
 
 M: object pprint* pprint-object ;
 
+M: curry pprint*
+    dup curry-quot callable? [ pprint-object ] [
+        "( invalid curry )" swap present-text
+    ] if ;
+
+M: compose pprint*
+    dup compose-first over compose-second [ callable? ] both?
+    [ pprint-object ] [
+        "( invalid compose )" swap present-text
+    ] if ;
+
 M: wrapper pprint*
     dup wrapped word? [
         <block \ \ pprint-word wrapped pprint-word block>

core/prettyprint/prettyprint-tests.factor

@@ -321,3 +321,7 @@ unit-test
 [ [ 2 . ] ] [
     [ 2 \ break (step-into) . ] (remove-breakpoints)
 ] unit-test
+
+[ ] [ 1 \ + curry unparse drop ] unit-test
+
+[ ] [ 1 \ + compose unparse drop ] unit-test