further code cleanups, unit test fixes

library/continuations.factor

@@ -28,4 +28,4 @@ TUPLE: interp data call name catch ;
 
 : callcc1 ( quot ++ obj | quot: cont -- | cont: obj ++ obj )
     continuation
-    [ swap literalize set-interp ] cons swap call ;
+    [ swap literalize unit set-interp ] cons swap call ;

library/inference/inline-methods.factor

@@ -83,7 +83,8 @@ M: 2generic dispatching-values drop node-in-d 2 swap tail* ;
 
 : subst-literal ( successor literal -- #push )
     #! Make #push -> #return -> successor
-    literalize dataflow [ last-node set-node-successor ] keep ;
+    literalize unit dataflow
+    [ last-node set-node-successor ] keep ;
 
 : inline-literal ( node literal -- node )
     over drop-inputs

library/inference/print-dataflow.factor

@@ -30,7 +30,7 @@ M: comment prettyprint* ( ann -- )
     ] make-string ;
 
 M: #push node>quot ( ? node -- )
-    node-out-d [ literal-value literalize ] map concat % drop ;
+    node-out-d [ literal-value literalize ] map % drop ;
 
 M: #drop node>quot ( ? node -- )
     node-in-d length dup 3 > [

library/test/compiler/optimizer.factor

@@ -1,8 +1,4 @@
-
-GENERIC: xyz
-M: cons xyz xyz ;
-
-[ ] [ \ xyz compile ] unit-testIN: temporary
+IN: temporary
 USING: generic kernel-internals strings vectors ;
 USE: test
 USE: assembler
@@ -79,11 +75,11 @@ USE: sequences
 
 [ 4 ] [ 2 2 literal-kill-test-7 ] unit-test
 
-[ t ] [
+[ string ] [
     \ string
     [ range repeated integer string mirror array reversed sbuf
     slice vector diagonal general-list ]
-    min-class?
+    min-class
 ] unit-test
 
 [ f ] [
@@ -144,7 +140,7 @@ TUPLE: pred-test ;
         "not a tuple"
     ] ifte ; compiled
 
-[ 1 "pred-test" ] [ << pred-test >> pred-test-3 ] unit-test
+[ << pred-test >> "pred-test" ] [ << pred-test >> pred-test-3 ] unit-test
 
 : pred-test-4
     dup pred-test? [

library/ui/presentations.factor

@@ -27,7 +27,7 @@ global [ 100 <vector> commands set ] bind
     dup presented paint-prop dup [
         [
             \ drop ,
-            literal,
+            literalize ,
             [ command-menu show-menu ] %
         ] make-list
         button-gestures