fix see

TODO.FACTOR.txt

@@ -4,6 +4,7 @@
 - keyboard focus
 - keyboard gestures
 - text fields
+- finish check boxes
 
 + compiler:
 
@@ -15,7 +16,7 @@
 - goal: to compile hash* optimally
 - type check/not-check entry points for compiled words
 - getenv/setenv: if literal arg, compile as a load/store
-- empty ifte: wrong input type.
+- compile tuple dispatch
 
 + oop:
 

library/primitives.factor

@@ -119,7 +119,7 @@ hashtables ;
     [ exit*                  [ [ integer ] [ ] ] ]
     [ client-socket          [ [ string integer ] [ port port ] ] ]
     [ server-socket          [ [ integer ] [ port ] ] ]
-    [ close-port             [ [ port ] ] ]
+    [ close-port             [ [ port ] [ ] ] ]
     [ add-accept-io-task     [ [ port general-list ] [ ] ] ]
     [ accept-fd              [ [ port ] [ string integer port port ] ] ]
     [ can-read-line?         [ [ port ] [ boolean ] ] ]

library/syntax/see.factor

@@ -44,34 +44,35 @@ presentation unparser words ;
     \ parsing prettyprint-prop
     \ inline prettyprint-prop ;
 
-: prettyprint-comment ( comment -- )
+: comment. ( comment -- ) "comments" style write-attr ;
-    "comments" style write-attr ;
 
-: infer-effect. ( effect -- )
+: infer-effect. ( indent effect -- indent )
-    0 swap
+    " " write
-    " ( " prettyprint-comment
+    [
-    2unlist >r [ prettyprint-element ] each r>
+        "(" ,
-    "-- " write
+        2unlist >r [ " " , unparse , ] each r>
-    [ prettyprint-element ] each
+        " --" ,
-    ")" prettyprint-comment
+        [ " " , unparse , ] each
-    drop ;
+        " )" ,
+    ] make-string comment. ;
 
-: stack-effect. ( word -- )
+: stack-effect. ( indent word -- indent )
     dup "stack-effect" word-property [
         " " write
-        [ CHAR: ( , , CHAR: ) , ] make-string prettyprint-comment
+        [ CHAR: ( , , CHAR: ) , ] make-string
+        comment.
     ] [
         "infer-effect" word-property dup [
             infer-effect.
         ] [
-            2drop
+            drop
         ] ifte
     ] ?ifte ;
 
 : documentation. ( indent word -- indent )
     "documentation" word-property [
         "\n" split [
-            "#!" swap cat2 prettyprint-comment
+            "#!" swap cat2 comment.
             dup prettyprint-newline
         ] each
     ] when* ;