Remove directory. and friends

diff --git a/TODO.txt b/TODO.txt
index 8c84b85adfc94221cb97d3bd9b4668ae30c33c95..e8f84125f2a67d5e696c0385edfc6ff141b23f4c 100644 (file)
--- a/TODO.txt
+++ b/TODO.txt
@@ -54,12 +54,14 @@
 - see should try to not show ; on a line by itself
 - IN: on its own line if the entire 'see' form doesn't fit
 - command buttons: indicate shortcuts
+- test what is done in the case of an invalid declaration on an inline
+  recursive
+- how do we refer to command shortcuts in the docs?
 
 + ui:
 
 - browser tool: dropdown menu button for definition operations
 - copying pane output
-- how do we refer to command shortcuts in the docs?
 - editor:
   - autoscroll
   - transpose char/word/line
@@ -67,27 +69,18 @@
 - see if its possible to only repaint dirty regions
 - structure editor
 
-+ module system:
++ compiler/ffi:
 
-- track a list of assets loaded from each module's file
 - C types should be words
   - TYPEDEF: float { ... } { ... } ;   ==> \ float T{ c-type ... } "c-type" swp
   - TYPEDEF: float FTFloat ;  ==> \ float \ FTFloat "c-type" swp
   - make typedef aliasing explicit
 - seeing a C struct word should show its def
-- file out
-
-+ compiler/ffi:
-
 - amd64 structs-by-value bug
 - %allot-bignum-signed-2 is broken on both platforms
-- we may be able to remove the dlsym primitive
 - [ [ dup call ] dup call ] infer hangs
 - stdcall callbacks
 - callstack overflow when compiling mutually recursive inline words
-- test what is done in the case of an invalid declaration on an inline
-  recursive
-- ppc64 backend
 - arm backend
 - float= doesn't consider nans equal
 - C functions returning structs by value
@@ -97,7 +90,6 @@
 
 - if a word drops the stack pointer below the bottom, then an error
   won't be thrown until the next word accesses the stack
-- prettyprinter: clean it up
 - prettyprinter: don't build entire tree to print first
 - automatic help/effects for slot accessors
 - tuple shape changes
@@ -105,7 +97,6 @@
 - minor GC takes too long now, we should card mark code heap
 - buffer-ptr should be an alien
 - swap nappend ==> nappend
-- gdb triggers 'multiple i/o ops on port' error
 - incremental GC
 - UDP
 - slice: if sequence or seq start is changed, abstraction violation
@@ -114,3 +105,4 @@
 + httpd:
 
 - remaining HTML issues need fixing
+- embedded.factor is O(n^2)

diff --git a/core/io/files.factor b/core/io/files.factor
index b72feaa3acb9593424527b5a7dec3e0286175d43..4370445b62bae23d8a54ecc979279aae97795246 100644 (file)
--- a/core/io/files.factor
+++ b/core/io/files.factor
@@ -34,23 +34,7 @@ strings styles arrays ;
 
 TUPLE: pathname string ;
 
-: (file.) ( name path -- )
-    <pathname> write-object ;
-
-: write-pathname ( path -- ) dup (file.) ;
-
-DEFER: directory.
-
-: (directory.) ( name path -- )
-    >r "/" append r> dup <pathname> swap [ directory. ] curry
-    write-outliner terpri ;
-
-: file. ( dir name -- )
-    tuck path+
-    dup directory? [ (directory.) ] [ (file.) terpri ] if ;
-
-: directory. ( path -- )
-    dup directory natural-sort [ file. ] each-with ;
+: write-pathname ( path -- ) dup <pathname> write-object ;
 
 : home ( -- dir )
     windows? "USERPROFILE" "HOME" ? os-env [ "." ] unless* ;

diff --git a/core/io/files.facts b/core/io/files.facts
index ab559ee9b5761d0fdd9b7ac9a37b02a08a3af10f..6c7dd36eb1a4dc09344a58c7c2c3aa5581b67b64 100644 (file)
--- a/core/io/files.facts
+++ b/core/io/files.facts
@@ -48,7 +48,3 @@ HELP: resource-path
 
 HELP: pathname
 { $class-description "Class of path name presentations. Instances can be used passed to " { $link write-object } " to output a clickable path name." } ;
-
-HELP: directory.
-{ $values { "path" "a string" } }
-{ $description "Prints a directory listing to the " { $link stdio } " stream. If the stream supports it, subdirectories are shown as expandable outliners." } ;