Fix DLL printing

TODO.FACTOR.txt

@@ -5,8 +5,6 @@
   - we can just convert strings to aliens beforehand
   - >float first too
 - docs: don't pass volatile aliens to callbacks
-- TYPEDEF: float GLfloat  creates a null GLfloat* type
-- callstack overflow broken again
 
 + ui:
 

library/bootstrap/primitives.factor

@@ -394,10 +394,10 @@ num-types f <array> builtins set
 
 "dll?" "alien" create t "inline" set-word-prop
 "dll" "alien" create 15 "dll?" "alien" create
-{ { 1 object { "dll-path" "alien" } f } } define-builtin
+{ { 1 byte-array { "dll-path" "alien" } f } } define-builtin
 
 "alien" "alien" create 16 "alien?" "alien" create
-{ { 1 object { "underlying-alien" "alien" } f } } define-builtin
+{ { 1 c-ptr { "underlying-alien" "alien" } f } } define-builtin
 
 "tuple?" "kernel" create t "inline" set-word-prop
 "tuple" "kernel" create 17 "tuple?" "kernel" create

library/prettyprint/backend.factor

@@ -70,7 +70,8 @@ M: string pprint* "\"" pprint-string ;
 
 M: sbuf pprint* "SBUF\" " pprint-string ;
 
-M: dll pprint* dll-path "DLL\" " pprint-string ;
+M: dll pprint*
+    dll-path alien>char-string "DLL\" " pprint-string ;
 
 ! Sequences
 : nesting-limit? ( -- ? )