fix see

diff --git a/TODO.FACTOR.txt b/TODO.FACTOR.txt
index 0fabe98632f8af344cdbda161c784c45022604e2..ce87bc6a82694735db29df7a6da2328a89e64983 100644 (file)
--- a/TODO.FACTOR.txt
+++ b/TODO.FACTOR.txt
@@ -4,6 +4,7 @@
 - keyboard focus\r
 - keyboard gestures\r
 - text fields\r
+- finish check boxes\r
 \r
 + compiler:\r
 \r
@@ -15,7 +16,7 @@
 - goal: to compile hash* optimally\r
 - type check/not-check entry points for compiled words\r
 - getenv/setenv: if literal arg, compile as a load/store\r
-- empty ifte: wrong input type.\r
+- compile tuple dispatch\r
 \r
 + oop:\r
 \r

diff --git a/library/primitives.factor b/library/primitives.factor
index ce1c81682630404b3fe93a285fbf8137841b0cfa..7dc72c8f1b6b9408fb601be40efb783f4412c67b 100644 (file)
--- a/library/primitives.factor
+++ b/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 ] ] ]

diff --git a/library/syntax/see.factor b/library/syntax/see.factor
index 8d14ce7df5bac80b8a90b0658357be5aa69b2aa8..abf7c593d3bb7b7a87e36106df2bd02699a9fde2 100644 (file)
--- a/library/syntax/see.factor
+++ b/library/syntax/see.factor
@@ -44,34 +44,35 @@ presentation unparser words ;
     \ parsing prettyprint-prop
     \ inline prettyprint-prop ;
 
-: prettyprint-comment ( comment -- )
-    "comments" style write-attr ;
+: comment. ( comment -- ) "comments" style write-attr ;
 
-: infer-effect. ( effect -- )
-    0 swap
-    " ( " prettyprint-comment
-    2unlist >r [ prettyprint-element ] each r>
-    "-- " write
-    [ prettyprint-element ] each
-    ")" prettyprint-comment
-    drop ;
-
-: stack-effect. ( word -- )
+: infer-effect. ( indent effect -- indent )
+    " " write
+    [
+        "(" ,
+        2unlist >r [ " " , unparse , ] each r>
+        " --" ,
+        [ " " , unparse , ] each
+        " )" ,
+    ] make-string comment. ;
+
+: 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* ;